IBM OEM Software Product … CD For PC Manufacturers/IBM OEM Software - Product Sampler CD for PC Manufacturers.iso/InternetIntranets/Notes/LOTUS027.DSK/PERWEB46.NTF

Lotus Notes Database | 1997-08-14 | 948KB | 7,635 lines

Personal Web Navigator (R4.6)
#1StdR46PersonalWebNavigator
FOLDER_DIRECTORY_OBJECT
Favorites and Bookmarks|Bookmarks|Favorites|Bookmarks
STG27910
Web Bots\Page Minder
CN=Lotus Notes Template Development/O=Lotus Notes
Web Bots\Web Ahead
}&lemH
EOu#B
J7)e`|qT
>%!-eWv
CN=Dave Newbold/O=IrisLotus NotesCN=Lotus Notes Template Development/O=Lotus NotesLotus NotesCN=Lotus Notes Template Development/O=Lotus NotesCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
###########################################
$Modified
    1S2S3S
$TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O
$Flags
    0SL1S4S5S3724
$TITLE
CN=Teresa Deane/O=Iris#####################################
URLDoclinkURLDoclink
URLDoclink
CN=Winnie Liang/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################
}&lemH
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################################
CN=Teresa Deane/O=Irisc:\notes\data\perweb46.ntf(Home)Rin
CN=Teresa Deane/O=Iris
Personal Web Navigator (R4.6)
#1StdR46PersonalWebNavigator#######################
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################################
Internet OptionsAdminDC
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################
(Internet Profile)|Internet ProfilesB
$Conflict
Admin
    L1S2S3S1
Internet Options
Internet Options&
Lotus NotesCN=Lotus Notes Template Development/O=Lotus Notes#################################################
(ImportFavorite)
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########################
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
6f((c
$ACLDigest
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$INFO
$BODY
Times New Roman
&Arial
Using Personal
Web Navigator 4.6
    This database is designed so you can easily access the Internet right from your Notes workstation and store Web pages in your own Personal Web Navigator database.
Getting started viewing and searching pages
    To browse a page, click
?_?__
`!b`1
7`^///?
?b___
`bOOO
`<b!R
*.BMP
CGM Imag
;*.WR1;*.WRK;*.W
      which brings up your home page specified in Internet Options.  You can enter new URL's for other Web pages in the search bar.   You can save the page in the All Bookmarks view to read later by clicking the Add Bookmark... button. We have also included some of our favorite Web pages in the All Bookmarks view, which you can display by switching to the All Bookmarks view and selecting a page.
    If you want to search for information in pages stored in the Personal Web Navigator database, you can search the database using full text search as you would any other Notes database. See online Help (Help4.nsf) for information on using full text search.
    To use an Internet search engine, such as CNet, to search all available pages on the Internet, click
?_?__
`!b`1
7`^///?
?b___
`bOOO
`<b!R
922 2EDFA3BC D$S
*.BMP
CGM Imag
     and enter your search criteria.
    You can change the default Internet search engine as well as other Personal Web Navigator settings in the Internet Options document. To access this document, choose Actions - Internet Options when you are using the Personal Web Navigator database.
Using the Personal Web Navigator views
    The Personal Web Navigator database contains the following views:
    Favorites and Bookmarks
    Displays pages for which you created bookmarks and also pages that you added to the Favorites folder.
    Web Bots
    Web Ahead
    Notes launches a background agent, which you enable, called Web Ahead that runs on each of the pages stored in this folder. This agent retrieves all the Web pages specified by the URLs on a particular Web page and saves all the resulting Web pages in your database for you to read later. You can set the agent to retrieve the URLs several levels down from the page you specify.
    Page Minder
    Notes launches a background
    agent
    , which you enable, called Page Minder that monitors each of the Web pages stored in this folder and notifies you when the contents of that page change.
    All Bookmarks
     Lets you quickly view your favorite pages. You can create bookmarks for pages stored in the Personal Web Navigator database as well as pages that you access frequently on the Web.
    All Pages
     Displays all pages stored in the Personal Web Navigator database. You can browse these pages even when you are disconnected from the network.
    Other
    File Archive
     Displays a list of files downloaded from Web pages, sorted in alphabetical order by file size.
    House Cleaning
     Displays a list of documents, sorted in ascending order by document size.
    Use these views to reduce the number of documents in the database based on document or file size.
Getting more information
    This is just a brief summary of the features you may want to use in the Personal Web Navigator database. For additional information,
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     Dim mailserver As String
     Dim helpdb As New notesdatabase("", "")

     Dim workspace As New NotesUIWorkspace
     Dim s As New notessession
     mailserver = s.getenvironmentstring("MailServer", True)

     If Helpdb.open("", "help4.nsf") Then
          Call workspace.OpenDatabase ( "", "help4.nsf", "Web")
     Elseif Helpdb.open("", "helplt4.nsf") Then
          Call workspace.OpenDatabase ( "", "helplt4.nsf", "Web")
     Elseif Helpdb.open(Mailserver, "help4.nsf") Then
          Call workspace.OpenDatabase ( mailserver, "help4.nsf", "Web")
     Elseif Helpdb.open(Mailserver, "helplt4.nsf") Then
          Call workspace.OpenDatabase ( mailserver, "helplt4.nsf", "Web")
     Else
          Msgbox "Unable to locate the Notes Help Database", 16, "Error"
     End If

End Sub
     click the following help icon:
60606
 @  @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$INFO
$BODY
Times New Roman
&Arial
About Personal
Web Navigator 4.6
    Welcome to the Personal Web Navigator database.  The Personal Web Navigator database allows you to access the Internet directly from your Notes workstation.  This database acts as a repository for Web pages and files that have been downloaded so you can easily organize your pages and browse them when you are disconnected from the network. It also acts as an easy entry point for exploring the Internet.  This version of the Personal Web Navigator database allows you to make use of the integrated Notes with Internet Explorer option to view pages using Internet Explorer while keeping all of the powerful functionality of Notes.
    Choose "Using This Database" from the Help menu for information on using this database.
-------------------
    (Close this window to return to the database.)
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$INFO
$BODY
Other\House Cleaning|House Cleaning/O0
TIME_DATE
TIME_DATE
    0S0E
    0S0E
$47Title$45$46$Conflict
Admin
HelpForm
WebBrowserForm
bookmark
    L1S2S3S13S14S15S
$47$45
$45Title
$47Size
TitleDocument title$45DateN
TIME_DATE
TIME_DATE
    0S0E
$46Type*
    0S0E
Admin
Admin
forward
HTMLForm
WebBrowserForm
    12S13S
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################
Other\File Archive|File Archive/O
    3S15S
    3S15S
$46NULL$45$Conflict
    L1S1
$46$45
$46$45
$46$45
 $46File NameJ
    3S15SNULL$45File SizeJ
    3S15S&
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################
CN=Ryan Jansen/O=IrisCN=Barbara Mathers/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesLotus NotesCN=Teresa Deane/O=IrisLotus NotesCN=Lotus Notes Template Development/O=Lotus NotesCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesDatabase Scriptt34Q1######################################
ShareWebPageShareWebPageDC
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#
(ImportBookmark)CD
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################################
##########################################################
##########################################################
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move to Folder...
_Remove from Folder...
Browse'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     Browse
End Sub
_DeleteK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     ViewDelete
End Sub
_Reduce to BookmarkK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     Dim docCollection As NotesDocumentCollection
     Dim docLocal As NotesDocument

     Set docCollection = db.UnprocessedDocuments
     If (docCollection.Count = 0) Then
          Msgbox "You must select a document.",16,"Error"
          Exit Sub
     End If
     Set docLocal = docCollection.GetFirstDocument
     While Not (docLocal Is Nothing)
          RemoveObjects docLocal
          ReduceToLink docLocal
          Set docLocal = docCollection.GetNextDocument(docLocal)
     Wend
End Sub
Print...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     PrintWebDocument
End Sub
Forward...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     Dim docLocal As NotesDocument
     Dim docCollection As NotesDocumentCollection
     Set docCollection = db.UnprocessedDocuments
     If (docCollection.Count = 0) Then
          Msgbox "You must select a document.",16,"Error"
          Exit Sub
     Else
          For j = 1 To docCollection.Count
               Set docLocal = docCollection.getnthdocument(j)
               If (w.dialogbox ("Forward", True, True, False, False, False, False, " Forward Options", docLocal)) Then
                    Select Case docLocal.ForwardOptions(0)
                    Case "1" : 'user wants to forward the URL only
                         Call CreateIELink(doclocal.url(0), doclocal.title(0))
                    Case "2" : 'user wants to send entire page
                         Call  ViewForward(docLocal)
                    End Select
          'remove any remaining fields that don't need to be carried around
                    docLocal.RemoveItem "ForwardOptions"
                    docLocal.save True, False

               End If
               Exit Sub
          Next
     End If
     Exit Sub
End Sub
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "InternetFunctions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuiview)
Declare Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIVIEW
     Set Source = Bind(Objectname_)
     On Event Postopen From Source Call Postopen
     On Event Queryaddtofolder From Source Call Queryaddtofolder
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuiview)
     InstantiateObjects
End Sub
'++LotusScript Development Environment:2:2:Queryaddtofolder:1:12
Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
     Call MoveToFolder(source,target,continue)
End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
K;Jut
$SCRIPTOBJ_12
$SCRIPTOBJ_11
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$FormFormula
$Comment
$ACTIONS
$SCRIPTOBJ_6
$SCRIPTOBJ_7
$SCRIPTOBJ_8
$SCRIPTOBJ_9
$SCRIPTOBJ_10
$ViewGlobalScript
$ViewGlobalScript_O
$ViewScript
$ViewScript_O
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
sZ%!ZM}
j2A/:
$Flags
Personal Web Navigator Internet Options
&Arial
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "InternetFunctions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim DocWasSaved As Integer
Dim HPValue As String
Dim OldHPValue As String
Dim SearchValue As String
Dim OldSearchValue As String
Dim uidoc As notesuidocument
 Admin'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Postopen From Source Call Postopen
     On Event Querysave From Source Call Querysave
     On Event Queryclose From Source Call Queryclose
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
     'initialize some varibales
     Set w = New notesuiworkspace
     Set uidoc = w.currentdocument
     Set note = source.Document
     Set session = New NotesSession
     Set db = session.CurrentDatabase
     'we need to see if a profile document exists
     Set view = db.GetView("(Internet Profile)")
     Set docProfile = view.GetFirstDocument
     If Not (docProfile Is Nothing) Then
          'clear out any existing items, even though there probably isn't any
          Forall fields In note.Items
               fields.Remove
          End Forall
               'copy the items from the docProfile to this and disable saving
          docProfile.CopyAllItems note
     End If
     DocWasSaved = False
     source.Refresh
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)

     Dim lpSubKey1 As String
     Dim IEHomePageURL As String
     Dim NewHPValue As String
     Dim IESearchURL As String
     Dim NewSearchValue As String

     If (docProfile Is Nothing) Then
          note.Saveoptions = "1"
     Else
          note.saveoptions = "0"
          DocWasSaved = True

     End If
     Call Session.Setenvironmentvar("W3LocalFormSave", "1", False)

     'If the home page or the search url have changed, write them out to the registry

     If GetcurrentLocation = "3" Then
          If ( source.document.startupoptions(0) ="1") And (source.document.openurl(0) <> "") Then
          'synchronize homepage with IE if Location is set to Notes with IE
               NewHPValue = source.fieldgettext("OpenURL")
               If NewHPValue <> OldHPValue Then
                    lpSubKey1 ="SOFTWARE\Microsoft\Internet Explorer\Main"
                    IEHomePageURL =  GetRegValue (lpsubkey1, "Start Page" )
                    CompareResult = CompareValues (IEHomePageURL, NewHPValue)
                    Select Case CompareResult
                    Case "SetRegistry"
          'Put the Notes Value in the W32 Registry
                         Call SetRegValue(lpSubKey1, "Start Page", NewHPValue)
                    Case "SetNotes"
          'Put the W32 Registry value in Notes
                         docprofile.OpenURL = IEHomePageURL
                         Call docprofile.save(True, False)
                    End Select
               End If
          End If

          'Sync search page values if they have changed

          NewSearchValue = source.fieldgettext("PreferredSearchEngine")
          NewSearchURL = source.fieldgettext("SearchURL")
          If NewSearchValue <> OldSearchValue Then
               lpSubKey1 ="SOFTWARE\Microsoft\Internet Explorer\Main"
               IESearchURL =  GetRegValue (lpsubkey1, "Search Page" )
               CompareResult = CompareValues (IESearchURL, NewSearchURL)
               Select Case CompareResult
               Case "SetRegistry"
          'Put the Notes Value in the W32 Registry
                    Call SetRegValue(lpSubKey1, "Search Page", NewSearchURL)
               Case "SetNotes"
          'Put the W32 Registry value in Notes
                    source.document.SearchURL = IESearchURL
               End Select
          End If
     End If
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
     source.refreshhideformulas
          'see if there is a profile document
     If Not (DocWasSaved) Or (docProfile Is Nothing) Then
          'there isn't a profile document, go ahead and save
          Exit Sub
     Else
          'we need to delete the items in the docprofile and copy the current items to it
          Forall fields In docProfile.Items
               fields.Remove
          End Forall
          note.CopyAllItems docProfile
          docProfile.SaveOptions = "1"
          docProfile.Save True, True
     End If
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As FIELD
     Set Source = Bind(Objectname_)
     On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)

End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
Declare Sub Entering(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As FIELD
     Set Source = Bind(Objectname_)
     On Event Exiting From Source Call Exiting
     On Event Entering From Source Call Entering
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)

End Sub
'++LotusScript Development Environment:2:2:Entering:1:12
Sub Entering(Source As Field)
     HPvalue = uidoc.fieldgettext("OpenURL")
     OldHPValue = HPvalue
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As FIELD
     Set Source = Bind(Objectname_)
     On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)

End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Entering(Source As Field)
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As FIELD
     Set Source = Bind(Objectname_)
     On Event Entering From Source Call Entering
     On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Entering:1:12
Sub Entering(Source As Field)
     Searchvalue = uidoc.fieldgettext("PreferredSearchEngine")
     OldSearchValue = Searchvalue
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)

End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As FIELD
     Set Source = Bind(Objectname_)
     On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
     Dim  w As New notesuiworkspace
     Dim uidoc As notesuidocument
     Dim docnote As notesdocument
     Set uidoc = w.currentdocument
     uidoc.refresh
     Set docnote = uidoc.document
     If "" <> (uidoc.fieldgettext("*")) Then
          var = docnote.GetItemValue("*")
          Forall item In var
               If Not (item = "*") Then
                    uidoc.fieldclear(item)
               End If
          End Forall
     End If
End Sub
DiskSizeOptions
ReduceReadG
    0S0E
Internet Options for
    0S0E
DisplayName
    Startup options:
StartUpOptionsCheck this box to specify a default Web page each time you open this database.
Open home page on database open:|1
http://notes.net/welcome.nsf
startupoptions
OpenURL
You have selected to have a home page opened every time the database is opened.  Please enter a home page in the home page field.
    5S6S9S10SOpenURLEnter the URL for the Web page you want to open each time you open this database.
      Database size options:
ReduceDays
    1S2S
ReduceNumDaysSelect the number of days that a page should be in the database before Notes purges it.
15306090
ReduceNumMBSelect the size the database should reach before Notes warns you.
5102550
    days
    megabytes
     Collaboration options:
    Share specified Web pages and Rating documents with:
    Server:
    Database:
web.nsf
WebServer
web.nsf
WebServer
names.nsf
($ServersLookup)
WebServer
WebDBName
    0S0E
WebDatabaseSpecify the name of the Server Web Navigator database to share Web pages and Ratings documents with.
Underline/Blue
Anchor_styleChoose a style for URLs on Web pages.
Bold/Underline/BlueUnderline/BlueBold/BlueUnderline only
Times 12
BodyChoose a font for the body tag on Web pages.
Times 10Times 11Times 12Helvetica 10Helvetica 11Helvetica 12Courier 10Courier 11Courier 12
Courier
FixedChoose a font for tags that display "fixed" type on Web pages.
TimesHelveticaCourier
Courier
PlainChoose a font for plaintext type tags on Web pages.
TimesHelveticaCourier
Times
AddressChoose a font for the address tag on Web pages.
TimesHelveticaCourier
Courier
ListingChoose a font for listing type tags on Web pages.
TimesHelveticaCourier
     Presentation preferences:
    Anchors:
    Body text:
    Fixed:
    Plain:
    Address:
    Listing:
     Network preferences:
    Internet Network Preferences can be set by editing your current location document.
    0S0E
    Edit Location...
    Search for updates every:
SearchFrequencyChoose how often you want the agent to check to see if the contents of the page have changed.
Hour|04 Hours|1Day|2Week|3
    When updates are found:
UpdatesFoundOptionsSpecify how you want to be alerted when the contents of the page changes.
Mail the actual page|0Send me a summary|1
    Send to:
    0S0E
Page Minder
sendmailto
You must enter an e-mail address for Page Minder to send updates to.{
    1S6S7S9S10S13S
SendMailToSpecify the name of the person to alert when the contents of the page changes.
    Preload Web pages:
ScanAheadEnter the number of levels of pages you want this agent to retrieve.
    level(s) ahead
    Preferred Search Engine:
PreferredSearchEngineSpecify the search engine you want to use when you click the Search button.
AltaVista|0Excite|1Lycos|2Yahoo|3CNet|4Other|5
PreferredSearchEngine
    1S2S
PreferredSearchEngine
http://altavista.digital.com/
PreferredSearchEngine
http://www.excite.com/
PreferredSearchEngine
http://www.lycos.com/
PreferredSearchEngine
http://www.yahoo.com/
PreferredSearchEngine
http://www.search.com/
PreferredSearchEngine
SearchURL
http://
    3S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S19S20S21S22S23S24S25S26S27S28S33S34S35S36S38S
SearchURLEnter the URL of a specific search engine you want to associate with the Search button.
     Search options:
     Page Minder agent preferences:
     Web Ahead agent preferences:
ReduceDaysChoose how you want Notes to purge the database.
Reduce full pages to links if not read within:|0Remove pages from database if not read in:|1Disable|2
ReduceSizeSpecify that Notes should warn you by displaying a message box when the database exceeds a certain size.
Warn me when the database exceeds:|1
Web Ahead
    0S0E
Web Ahead
    0S0E
    0R4S
Enabled Background Agents
You have just enabled a background agent on your Notes workstation.  Please make sure that you have enabled background agents in your Notes preferences by choosing File - Tools - User Preferences and selecting Enable scheduled local agents.
    0R6S
    Enable Web Ahead
Page Minder
    0S0E
Page Minder
    0S0E
    0R4S
Enabled Background Agents
You have just enabled a background agent on your Notes workstation.  Please make sure that you have enabled background agents in your Notes preferences by choosing File - Tools - User Preferences and selecting Enable scheduled local agents.
    0R6S
    Enable Page Minder
SaveHTMLCheck to save the source HTML text in the HTMLSource field in the Notes document.
Save HTML in Note?|1
    Home Page:
SendMailTo
SendMailTo
    1S2S3S10S11S
    0S0E
    Address...
Page Minder
    0S0E
Page Minder
    0S0E
    Disable Page Minder
Web Ahead
    0S0E
Web Ahead
    0S0E
    Disable Web Ahead
    0S0E
WebServerPlease enter the name of the InterNotes Server which you would like to share web pages with
Housekeeping
reducedays
    0S0E
Housekeeping
    0S0E
    Disable Housekeeping
Housekeeping
reducedays
    0S0E
Housekeeping
    0S0E
     Enable Housekeeping
    0S0E
KeepPage
Automatically store pages for disconnected use|0Manually store pages for disconnected use|1
$Script1
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Close
    0S0E
Save
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$WINDOWTITLE
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$$StartUpOptions
$StartUpOptions_O
$$OpenURL
$OpenURL_O
$$ScanAhead
$ScanAhead_O
$$PreferredSearchEngine
$PreferredSearchEngine_O
$$$Script1
$$Script1_O
$BODY
$ACTIONS
Categori_ze0
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
ML(_}
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ACTIONS
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move to Folder...
_Remove from Folder...
Browse'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     Browse
End Sub
Delete'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     ViewDelete
End Sub
Print...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     PrintWebDocument
End Sub
Forward...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     Dim docLocal As NotesDocument
     Dim docCollection As NotesDocumentCollection
     Set docCollection = db.UnprocessedDocuments
     If (docCollection.Count = 0) Then
          Msgbox "You must select a document.",16,"Error"
          Exit Sub
     Else
          For j = 1 To docCollection.Count
               Set docLocal = docCollection.getnthdocument(j)
               If (w.dialogbox ("Forward", True, True, False, False, False, False, " Forward Options", docLocal)) Then
                    Select Case docLocal.ForwardOptions(0)
                    Case "1" : 'user wants to forward the URL only
                         Call CreateIELink(doclocal.url(0), doclocal.title(0))
                    Case "2" : 'user wants to send entire page
                         Call  ViewForward(docLocal)
                    End Select
          'remove any remaining fields that don't need to be carried around
                    docLocal.RemoveItem "ForwardOptions"
                    docLocal.save True, False

               End If
               Exit Sub
          Next
     End If
     Exit Sub
End Sub
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "InternetFunctions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuiview)
Declare Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIVIEW
     Set Source = Bind(Objectname_)
     On Event Postopen From Source Call Postopen
     On Event Queryaddtofolder From Source Call Queryaddtofolder
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuiview)
     InstantiateObjects
End Sub
'++LotusScript Development Environment:2:2:Queryaddtofolder:1:12
Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
     Call MoveToFolder(source,target,continue)
End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$SCRIPTOBJ_10
$TITLE
$Index
$Formula
$FormulaClass
$Totals
$VIEWFORMAT
$Comment
$ACTIONS
$SCRIPTOBJ_6
$SCRIPTOBJ_7
$SCRIPTOBJ_8
$SCRIPTOBJ_9
$ViewGlobalScript
$ViewGlobalScript_O
$ViewScript
$ViewScript_O
'++LotusScript Development Environment:2:5:(Options):0:74
Use "InternetFunctions"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidatabase)
Declare Sub PerformWebSetup
Declare Sub ReduceDocumentsToLinks
Declare Sub RemoveDocumentsFromDatabase
Declare Function DocumentCanBeProcessed  As Integer
Declare Sub SetupExpirationDates
Declare Sub ReduceOneDocumentToLink
Declare Sub Queryclose(Source As Notesuidatabase, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:10
'Active_X_Personal_Web_Navigator:
Dim docCollection As NotesDocumentCollection
Dim urldoc As NotesDocument
Dim doc As NotesDocument
Dim dtExpiration As NotesDateTime
Dim dtLastAccessed As NotesDateTime
Dim hskpgagent As NotesAgent
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDATABASE
     Set Source = Bind(Objectname_)
     On Event Postopen From Source Call Postopen
     On Event Queryclose From Source Call Queryclose
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidatabase)
     'intialize variables
     InstantiateObjects
     Dim BrowserDoc As notesdocument
     Dim BrowserobjectCollection As notesdocumentcollection
     Dim iedoc As New notesdocument(db)
     Dim BrowserOption As Variant
     Dim dt As New notesdatetime ("1/1/90")

     On Error 4005 Goto LoadHomeURL


     'Get current location retriever value
     BrowserOption = GetLocationItem("WebRetriever")


     'ensure that the user's profile document exists

     If (docprofile Is Nothing) Then
          PerformWebSetup
          'Get the current folders in the database for future use by the bookmark function
          Goto LoadHomeURL
     Else
          'Get the current folders in the database for future use by the bookmark function
          If (docprofile.ReduceDays(0) <> "2") Then
               Set hskpgagent = db.getagent("Housekeeping")
               If Not(hskpgagent.IsEnabled) Then
                    Msgbox "You have specified that you would like to reduce the unread pages in your Personal"  _
                    + "Web Database.  Please select Actions - Internet Options to enable the housekeeping " _
                    + "agent which will perform this task nightly at 1:00 AM.", 16,"Enable Housekeeping Agent"
               End If
          End If

          If (docprofile.ReduceSize(0) = "1") Then
               'compare the current database size against the limit set in the user profile
               If (db.Size > Cdbl(docprofile.ReduceNumMB(0)) *  1048576) Then Msgbox "The size of this database exceeds the user specified amount of "_
               & docprofile.ReduceNumMB(0) & "MB.",16,"Internet Options"
          End If

          'open up the user's home page if they have specified one
          If (docprofile.StartUpOptions(0) = "1") Then
LoadHomeURL:
               If BrowserOption(0) = "3" Then
                    CheckRegistrySettings
                    Set BrowserObjectCollection = db.search(("Form = ""WebBrowserForm""& home = ""1"""), dt, 0)

                    If BrowserObjectCollection.count <> 0 Then
                         Set BrowserDoc = BrowserObjectCollection.getfirstdocument
                         Call BrowserDoc.replaceitemvalue("url", docprofile.openurl(0))
                         Call BrowserDoc.save(True, False)
                         Call w.editdocument(False, browserdoc)
                    Else
                         Call iedoc.replaceitemvalue("Form", "WebBrowserForm")
                         Call iedoc.replaceitemvalue("home", "1")
                         Call iedoc.replaceitemvalue("SaveOptions", "1")
                         Call ieDoc.replaceitemvalue("url", docprofile.openurl(0))
                         Call ieDoc.save(True,False)
                         Call w.viewrefresh
                         Call w.editdocument(False, iedoc)
                    End If
               Elseif BrowserOption(0) = "0" Then
                    w.URLOpen docprofile.OpenURL(0)
               End If
          End If
     End If
End Sub
'++LotusScript Development Environment:2:2:PerformWebSetup:1:8
Sub PerformWebSetup
               'create the new document with default settings
     Set docprofile = New NotesDocument(db)
     docprofile.Form = "Admin"
     docprofile.StartUpOptions = "1"
     docprofile.OpenURL = "http://notes.net/welcome.nsf"
     docprofile.PreferredSearchEngine = "4"
     docprofile.SearchURL="http://www.search.com/"
     docprofile.ScanAhead = "1"
     docprofile.SearchFrequency = "2"
     docprofile.UpdatesFoundOptions = "1"
     docprofile.SendMailTo = session.UserName
     docprofile.ReduceDays = "2"
     docprofile.KeepPage = "0"
     docprofile.Save True, True
End Sub
'++LotusScript Development Environment:2:2:ReduceDocumentsToLinks:1:8
Sub ReduceDocumentsToLinks
     SetupExpirationDates

     Set docCollection = db.AllDocuments
     Set doc = docCollection.GetFirstDocument
     While Not (doc Is Nothing)
          If (DocumentCanBeProcessed) Then ReduceOneDocumentToLink
          Set doc = docCollection.GetNextDocument(doc)
     Wend
End Sub
'++LotusScript Development Environment:2:2:RemoveDocumentsFromDatabase:1:8
Sub RemoveDocumentsFromDatabase
     SetupExpirationDates

     Set docCollection = db.AllDocuments
     For i = 1 To docCollection.Count
          Set doc = docCollection.GetNthDocument(i)
          If (DocumentCanBeProcessed) Then
               Print "Removing pages that have not been read for " & docprofile.ReduceNumDays(0) & " days..."
               doc.Remove True
          End If
     Next
End Sub
'++LotusScript Development Environment:2:1:DocumentCanBeProcessed:1:8
Function DocumentCanBeProcessed  As Integer
'determines if a document meets the criteria to be reduced or removed from the database
     If (doc.Form(0) = "Admin") Then
          DocumentCanBeProcessed = False
          Exit Function
     End If
'if this is the home page, do not process it
     If (doc.Url(0) = docprofile.OpenUrl(0)) Then
          DocumentCanBeProcessed = False
          Exit Function
     End If
'compare the last accessed date/time
     dtLastAccessed.LSLocalTime = doc.LastAccessed
     If (dtExpiration.TimeDifference(dtLastAccessed) > 0) Then DocumentCanBeProcessed = True
End Function
'++LotusScript Development Environment:2:2:SetupExpirationDates:1:8
Sub SetupExpirationDates
'initiate the date/time objects
     Set dtLastAccessed = New NotesDateTime("")
     Set dtExpiration = New NotesDateTime("")
     dtLastAccessed.SetNow
     dtExpiration.SetNow
'dtExpired must be set back the number of days specified in the profile document
     dtExpiration.AdjustDay(-1*Cint(docprofile.ReduceNumDays(0)))
End Sub
'++LotusScript Development Environment:2:2:ReduceOneDocumentToLink:1:8
Sub ReduceOneDocumentToLink
     Print "Reducing pages that have not been read for " & docprofile.ReduceNumDays(0) & " days..."
     doc.RemoveItem "Body"
     doc.RemoveItem "HTMLSouce"
     doc.RemoveItem "HTMLBody"
     doc.RemoveItem "$Background"
     doc.RemoveItem "$FILE"
     doc.RemoveItem "URLLinks1"
     doc.RemoveItem "WebAheadStatus"
     doc.RemoveItem "WebAgentError"
     doc.RemoveItem "PageMinderStatus"
     doc.Save True,True
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidatabase, Continue As Variant)

End Sub
x    x    $
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
&5vZn
$DBScript
$DBScript_O
$TITLE
$Flags
$PublicAccess
 ShareWebPage
SharedOptions
    1S2S
    This Web page will be copied to the following Web Navigator database (the location of the Web Navigator database can be changed by choosing Actions - Internet Options from the menu)
Rating
SharedOptions
    3S4S5S6S
Rating
Rating
Rating
Rating
SharedOptions
    3S4S5S6S
Rating
Rating
Rating
Rating
SharedOptions
    3S4S5S6S
Rating
Rating
Rating
Rating
SharedOptions
    3S4S5S6S
Rating
Rating
Rating
Rating
SharedOptions
    3S4S5S6S
Rating
Rating
Rating
Rating
SharedOptions
    3S4S5S6S
Rating
Rating
Rating
Rating
SharedOptions
    3S4S5S6S
Rating
Rating
Rating
Rating
SharedOptions
    3S4S5S6S
Rating
Rating
Rating
Rating
SharedOptions
    3S4S5S6S
Rating
Rating
Rating
Rating
SharedOptions
    3S4S5S6S
Rating
Rating
Rating
SharedOptions
    1S2S
Title
Title
Poor   < ------------------------------  >   Great!
contentSelect category from list that best describes contents of this document
ArtsBusinessComputersCultureEducationEntertainmentFinanceGovernmentInternetPublicationsRecreationReferenceScienceShoppingSports
Category:
CommentsWrite your descriptive comments about the page here!
Your comments:
SharedOptions
Copy page to shared Web Navigator database|2Create Rating in shared Web Navigator database|3
SharedOptions
    1S2S
    Send URL to:
tmpWebServer
tmpWebServer
tmpWebDb
tmpWebDb
    Server:
    Path:
SharedOptions
Rating
You must enter a rating for this page.{
    3S4S5S6S7S8S
Rating
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
P(N.`
$TITLE
$INFO
$$Script_O
$$ScriptName
$BODY
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub ExtractHTTPAddress(szEntry As String)
Declare Sub CreateBookmarkDocument
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim ws As NotesUIWorkspace
Dim session As NotesSession
Dim db As NotesDatabase
Dim bookmark As NotesDocument
Dim note As NotesDocument
Dim hFile As Integer
Dim szPath As String
Dim szEntry As String
Dim szURL As String
Dim szTitle As String
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

End Sub
'++LotusScript Development Environment:2:2:ExtractHTTPAddress:1:8
Sub ExtractHTTPAddress(szEntry As String)
     Dim posHTTPBegin As Integer
     Dim posHTTPEnd As Integer
     Dim posTITLEBegin As Integer
     Dim posTITLEEnd As Integer

'first, get the position of an HTTP referece
     posHTTPBegin = Instr(1,szEntry,"http",5)
     If (posHTTPBegin = 0) Then
          szURL = ""
          Exit Sub
     Else
'get the position of the closing quote
          posHTTPEnd = Instr(posHTTPBegin,szEntry,"/""",5)
          szURL = Mid$(szEntry,posHTTPBegin,(posHTTPEnd-posHTTPBegin)+1)
'now, we need to get the title
          posTITLEBegin = Instr(posHTTPEnd,szEntry,">",5)
          If (posTITLEBegin = 0) Then
               szTitle = ""
          Else
               posTITLEEnd = Instr(posTITLEBegin,szEntry,"</a",5)
               szTitle = Mid$(szEntry,posTITLEBegin+1,(posTITLEEnd-posTITLEBegin)-1)
          End If
     End If
End Sub
'++LotusScript Development Environment:2:2:CreateBookmarkDocument:1:8
Sub CreateBookmarkDocument

     Set bookmark = New NotesDocument(db)

     bookmark.URL = szURL
     bookmark.Form = "HTMLForm"
     bookmark.Title = szTitle
     bookmark.Subject = szTitle
     bookmark.Imported = True
     Call bookmark.Save(True,True,True)
     Call bookmark.PutInFolder("My Bookmarks")

End Sub
(ImportBookmark)'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Declare Sub Postopen(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Queryopen From Source Call Queryopen
     On Event Postopen From Source Call Postopen
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)

End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
     Set ws = New NotesUIWorkspace
     Set session = New NotesSession
     Set db = session.CurrentDatabase
     Set note = source.Document
End Sub
    Netscape Bookmark file:
BookmarkFile
bookmarkfile
Choose path for Netscape Bookmarks
    1S2S
    Browse...
    For example, C:\NETSCAPE\NAVIGATOR\BOOKMARK.HTM
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
c'qTXCl
$TITLE
$INFO
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$BODY
(ImportFavorite)
    Microsoft Favorites Directory or filename:
BookmarkFile
    For example, C:\WIN95\PROFILES\USERNAME\FAVORITES
bookmarkfile
Choose path for Microsoft Favorite
    1S2S
    Browse...
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$$ScriptName
$BODY
Internet Options
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Formula
$Type
$Operation
$Scan
D1DE5FB167B5A71A831BA6EC2E9C9C3667843E4301C6054E658E2C2D65E5AC9DHTMLFormDC
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################
Favorites and Bookmarks|Bookmarks|Favorites|BookmarksFavorites and Bookmarks|Bookmarks|Favorites|Bookmarks
Bookmark
    6S8S
$37Title$36URL$Conflict
Title
Title
Bookmark
    6S8S
TitlePageTitle$36Date
URLURL&
Admin
Admin
forward
HTMLForm
WebBrowserForm
    12S13S
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
ForwardForwardCD
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################
EXT61806.lssKJ
EXT61806.lso
EXT34422.lss
EXT34422.lsoW7K
STG27910
EXT34422
EXT34422Browser$BodyWebBrowserFormCAF31E53E5407F8584AE8B898DDBFC3CD
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes2389A0729986E27BD9B4F21C755636E467843E4301C6054E658E2C2D65E5AC9DCN=Lotus Notes Template Development/O=Lotus Notes###################
J7)e`|qT
Housekeeping
1SfL3
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################################
##########################################################
##########################################################
WebRefreshFailed
Refresh of
Title
 failed
Title
Host"
    3S4S9S10S15S16S
&Arial
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "InternetFunctions"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub InstantiateFormObjects
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

End Sub
'++LotusScript Development Environment:2:2:InstantiateFormObjects:1:8
Sub InstantiateFormObjects
'call the global instantiate objects
     InstantiateObjects
     Set uidoc = w.CurrentDocument
     Set doc = uidoc.Document
End Sub
HTMLForm'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Terminate
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Postopen From Source Call Postopen
     On Event Queryopen From Source Call Queryopen
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
     Dim doc As notesdocument
     Dim w As New notesuiworkspace
     Dim locationdoc As notesdocument
     Dim BrowserObjectCollection As notesdocumentcollection
     Dim dt As New notesdatetime ("1/1/90")
     Dim BrowserDoc As notesdocument
     source.refreshhideformulas
'If we are in the process of forwarding the document, don't open it with the web browser form.

     If source.document.forward(0) = "1" Then
          Exit Sub
     End If

     If Not (source.inpreviewpane)  Then
          InstantiateObjects
          Set doc = source.document
          Dim url As String
          url = doc.url(0)

          If GetcurrentLocation = "3" Then
               source.close
               w.urlopen(url)
          End If
     End If
End Sub
'++LotusScript Development Environment:2:2:Terminate:1:10
Sub Terminate




End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)

End Sub

Title:
Title
Title
You must enter a subject for your document.
Title

URL:
Stub/Status:
HTTPStatus
Type:
Host:
            File Name:
    0S0E
FileName
SaveOptions
Subject
Subject
    1S2S3S
Subject
Title
Subject

    0S0E
    0S0E
    0S0E
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     If (doc Is Nothing) Then InstantiateFormObjects
     OpenHomeURL
End Sub
Reload(
    0S0E
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     If (doc Is Nothing) Then InstantiateFormObjects
     OpenSearchSite doc
End Sub
ForwardK
ForwardK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     InstantiateFormObjects
     Call NotesForwardNote(doc)
End Sub
Print...
    0S0E
Share...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
Declare Function GetInternetProfile As NotesDocument
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     If (doc Is Nothing) Then InstantiateFormObjects
     If doc.hasitem("URL") Then
          If (docProfile Is Nothing) Then
               Msgbox "You need to specify a Web Server and Web Database to share pages with. Choose Actions - Internet Options from the menu."
               Exit Sub
          End If
          doc.tmpWebServer  = docProfile.WebServer
          doc.tmpWebDb = docProfile.WebDatabase
      'first, display a prompt to get user input
          If (w.DialogBox("ShareWebPage",True,True,"Share Options")) Then
               doc.Save True, True
          'determine which action we need to take
               Select Case doc.SharedOptions(0)
       '   Case "1" : 'user wants to forward this as a bookmark
               'CreateNotesLink doc
               Case "2" : 'user wants to copy this to the shared web database
                    CopyDocumentToSharedDatabase doc, doc.url(0)
               Case "3" : 'user wants to rate this and copy the rating to the shared database
                    CreateRatingDocument doc, doc.url(0), doc.title(0)
               End Select
          'remove any remaining fields that don't need to be carried around
               doc.removeItem "ForwardTo"
               doc.RemoveItem "SharedOptions"
               doc.removeItem "ForwardTo"
               doc.RemoveItem "SharedOptions"
               doc.RemoveItem "Rating"
               doc.removeItem "Content"
               doc.removeItem "Comments"
               doc.RemoveItem "tmpWebServer"
               doc.RemoveItem "tmpWebDb"
               doc.Save True,True
          End If
     Else
          Msgbox "This document does not contain a URL."
     End If
End Sub
'++LotusScript Development Environment:2:1:GetInternetProfile:1:8
Function GetInternetProfile As NotesDocument
     'we need to get the profile document to make sure this is feasible and to get the location of the shared db
     Set view = db.getView("(Internet Profile)")
     Set GetInternetProfile = view.GetFirstDocument
End Function
Internet Profiles
Internet Options
webserver
    12S13S
Categori_zeK
_Edit Document
Send Docu_ment
_Remove from Folder...
Open History FolderK
Import Microsoft Favorites...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     ImportFavorites
End Sub
Import Netscape Bookmarks...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     ImportBookmarks
End Sub
Add Bookmark...K
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
Counter
$Hotspot0_O
Created
Expiration
Privacy_flags
Original_Date
Last_Modified
$SCRIPTOBJ_21
$SCRIPTOBJ_20
$TITLE
$INFO
$WINDOWTITLE
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$BODY
$ACTIONS
$SCRIPTOBJ_3
$SCRIPTOBJ_5
$SCRIPTOBJ_7
$SCRIPTOBJ_9
$SCRIPTOBJ_16
$SCRIPTOBJ_17
Browse'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Browse

End Sub
Delete'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     ViewDelete

End Sub
Print...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     PrintWebDocument

End Sub
_SearchK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     Dim docLocal As NotesDocument
     Dim docCollection As NotesDocumentCollection
     Set docCollection = db.UnprocessedDocuments
     If (docCollection.Count = 0) Then
          Msgbox "You must select a document.",16,"Error"
          Exit Sub
     End If
     Set docLocal = docCollection.GetFirstDocument
     OpenSearchSite docLocal
End Sub
$IndexY
    0S0E
_Forward
Sh_are...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
Declare Function GetInternetProfile
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     Dim docLocal As NotesDocument
     Dim webdoc As notesdocument
     Dim docCollection As NotesDocumentCollection
     Set docCollection = db.UnprocessedDocuments
     If (docCollection.Count = 0) Then
          Msgbox "You must select a document.",16,"Error"
          Exit Sub
     End If
     Set docLocal = docCollection.GetFirstDocument
     If docLocal.hasitem("URL") Then
          docLocal.tmpWebServer  = docProfile.WebServer
          docLocal.tmpWebDb = docProfile.WebDatabase
          docLocal.Save True, True
          If (w.DialogBox("ShareWebPage", True, True, False, False, False, False, "Share Options", doclocal)) Then
               docLocal.Save True, True
               Select Case docLocal.SharedOptions(0)
               'case 1 was previously forward bookmark.  That's now done off of the forward option
               Case "2" : 'user wants to copy this to the shared web database
                    If docLocal.Form(0) = "WebBrowserForm" Then
                         CopyDocumentToSharedDatabase docLocal, browserobject.locationurl
                    Else
                         CopyDocumentToSharedDatabase docLocal, docLocal.url(0)
                    End If
               Case "3" : 'user wants to rate this and copy the rating to the shared database
                    If docLocal.Form(0) = "WebBrowserForm" Then
                         CreateRatingDocument docLocal, browserobject.locationurl,browserobject.locationname
                    Else
                         CreateRatingDocument docLocal,docLocal.url(0),docLocal.title(0)
                    End If
               End Select
          'remove any remaining fields that don't need to be carried around
               docLocal.removeItem "ForwardTo"
               docLocal.RemoveItem "SharedOptions"
               docLocal.RemoveItem "Rating"
               docLocal.removeItem "Content"
               docLocal.removeItem "Comments"
          End If
          docLocal.RemoveItem "tmpWebServer"
          docLocal.RemoveItem "tmpWebDb"
          docLocal.Save True, True
     Else
          Msgbox "This document does not contain a URL."
     End If
End Sub
'++LotusScript Development Environment:2:1:GetInternetProfile:1:8
Function GetInternetProfile
         'we need to get the profile document to make sure this is feasible and to get the location of the shared db
     Set view = db.getView("(Internet Profile)")
     Set GetInternetProfile = view.GetFirstDocument
End Function
Internet Profiles
Internet Options
WebServer
    0S0E
Categori_zeK
_Edit Document
Send Docu_ment
_Move to Folder...
Move Page to Folder...
    0S0E
_Remove from Folder...
_Reduce to BookmarkK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     Dim docCollection As NotesDocumentCollection
     Dim docLocal As NotesDocument

     Set docCollection = db.UnprocessedDocuments
     If (docCollection.Count = 0) Then
          Msgbox "You must select a document.",16,"Error"
          Exit Sub
     End If
     Set docLocal = docCollection.GetFirstDocument
     While Not (docLocal Is Nothing)
          RemoveObjects docLocal
          ReduceToLink docLocal
          Set docLocal = docCollection.GetNextDocument(docLocal)
     Wend
End Sub
Import Microsoft Favorites...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     ImportFavorites
End Sub
Import Netscape Bookmarks...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     ImportBookmarks
End Sub
Forward...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     Dim docLocal As NotesDocument
     Dim docCollection As NotesDocumentCollection
     Set docCollection = db.UnprocessedDocuments
     If (docCollection.Count = 0) Then
          Msgbox "You must select a document.",16,"Error"
          Exit Sub
     Else
          For j = 1 To docCollection.Count
               Set docLocal = docCollection.getnthdocument(j)
               If (w.dialogbox ("Forward", True, True, False, False, False, False, " Forward Options", docLocal)) Then
                    Select Case docLocal.ForwardOptions(0)
                    Case "1" : 'user wants to forward the URL only
                         Call CreateIELink(doclocal.url(0), doclocal.title(0))
                    Case "2" : 'user wants to send entire page
                         Call  ViewForward(docLocal)
                    End Select
          'remove any remaining fields that don't need to be carried around
                    docLocal.RemoveItem "ForwardOptions"
                    docLocal.save True, False

               End If
               Exit Sub
          Next
     End If
     Exit Sub
End Sub
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "InternetFunctions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuiview)
Declare Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIVIEW
     Set Source = Bind(Objectname_)
     On Event Postopen From Source Call Postopen
     On Event Queryaddtofolder From Source Call Queryaddtofolder
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuiview)
     InstantiateObjects
End Sub
'++LotusScript Development Environment:2:2:Queryaddtofolder:1:12
Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
     Call MoveToFolder(source,target,continue)
End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
":MtY^Y
#lW?$
$SCRIPTOBJ_20
$SCRIPTOBJ_19
$SCRIPTOBJ_17
$SCRIPTOBJ_18
$SCRIPTOBJ_16
$TITLE
$Name
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$FormFormula
$Comment
$ACTIONS
$SCRIPTOBJ_0
$SCRIPTOBJ_1
$SCRIPTOBJ_2
$SCRIPTOBJ_3
$SCRIPTOBJ_5
$SCRIPTOBJ_12
$SCRIPTOBJ_13
$SCRIPTOBJ_14
$SCRIPTOBJ_15
$ViewGlobalScript
$ViewGlobalScript_O
$ViewScript
$ViewScript_O
 Forward
ForwardOptions
Forward bookmark to page|1Forward copy of page|2
ForwardOptions
    0S0E
    0S0E
?_?__
`!b`1
7`^///?
?b___
`bOOO
`<b!R

    0S0E
    0S0E
ForwardOptions
    0S0E
    0S0E
;&565'
5&E5E5
&64&6&646'
?_?__
`!b`1
7`^///?
?b___
`bOOO
`<b!R
                                4
tFlags$UpdatedBy
Create Authorize--------apikoff/O=Iris$$;;;;;;;;WR1
off/O=Iris$$
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$$ScriptName
$BODY
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Beforenavigate(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Cancel As Integer)
Declare Sub Navigatecomplete(Source As Webbrowser, Url As String)
Declare Sub Framebeforenavigate(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Cancel As Integer)
Declare Sub Framenavigatecomplete(Source As Webbrowser, Url As String)
Declare Sub Framenewwindow(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Processed As Integer)
Declare Sub Downloadbegin(Source As Webbrowser)
Declare Sub Downloadcomplete(Source As Webbrowser)
Declare Sub Progresschange(Source As Webbrowser, Progress As Long, Progressmax As Long)
Declare Sub Titlechange(Source As Webbrowser, Text As String)
Declare Sub Statustextchange(Source As Webbrowser, Text As String)
Declare Sub Initialize
Declare Sub Newwindow(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Processed As Integer)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim WebDatabase As notesdatabase
Dim datadoc As notesdocument
Dim Session As notessession
Dim DocNoteID As notesdocument
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As WEBBROWSER
     Set Source = Bind(Objectname_)
     On Event Beforenavigate From Source Call Beforenavigate
     On Event Navigatecomplete From Source Call Navigatecomplete
     On Event Framebeforenavigate From Source Call Framebeforenavigate
     On Event Framenavigatecomplete From Source Call Framenavigatecomplete
     On Event Framenewwindow From Source Call Framenewwindow
     On Event Downloadbegin From Source Call Downloadbegin
     On Event Downloadcomplete From Source Call Downloadcomplete
     On Event Progresschange From Source Call Progresschange
     On Event Titlechange From Source Call Titlechange
     On Event Statustextchange From Source Call Statustextchange
     On Event Newwindow From Source Call Newwindow
End Sub
'++LotusScript Development Environment:2:2:Beforenavigate:1:12
Sub Beforenavigate(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Cancel As Integer)
      '    A navigation has requested a new window be opened
     ' we'll take care of everything and tell the caller we opened a new window
     ' otherwise the IE application starts up in a new window

     On Error 213 Resume Next

     If uidoc.inpreviewpane And firstnavigatedone Then
          If Instr(parseURL(url), "mailto") =0 Then
               Dim iedoc As New notesdocument(db)
               Dim newuidoc As NotesUIDocument
               Call iedoc.replaceitemvalue("Form", "WebBrowserForm")
               Call iedoc.replaceitemvalue("SaveOptions", "1")
               Call iedoc.replaceitemvalue("$ShowNavigationBar", "1")
               Call iedoc.replaceitemvalue("$NavigateToURL", Url)
               Call ieDoc.save(True,False)
               Call w.viewrefresh
               Call w.editdocument(False, iedoc)
               Set newuidoc = w.currentdocument
               Set browserobject=newuidoc.GetObject("Browser")
               browserobject.Navigate Url, Flags, Targetframename, Postdata,  Headers
               Cancel = True
          Else
               browserobject.Navigate Url, Flags, Targetframename, Postdata,  Headers
          End If
     End If
End Sub
'++LotusScript Development Environment:2:2:Navigatecomplete:1:12
Sub Navigatecomplete(Source As Webbrowser, Url As String)
     Dim nulldoc As notesdocument
     'Error 213 is OLEException Error in lserr.lss
     On Error 213 Goto ErrorRoutine

     If url <>"" Then
     ' Set the URL in the Navigation Bar URL field
          uidoc.NavBarSetText Url
          If docprofile Is Nothing Then
               'This will happen if the user is opening the database for the first time therefore the dbopen script has not been
               'executed.  Go ahead and retrieve the document because keeppage is on automatically.
               Set   nulldoc = db.getdocumentbyurl (url, True, False, Empty$, Empty$, Empty$, Empty$,Empty$, True)
               Exit Sub
          End If
          If docprofile.keeppage(0) = "0" Then
                ' Request the URL to be retrieved but don't wait for it to come in
              ' Print "(DEBUG) - Queue request for: " + url
               Set   nulldoc = db.getdocumentbyurl (url, True, False, Empty$, Empty$, Empty$, Empty$,Empty$, True)
          End If

     End If

     Exit Sub
ErrorRoutine:
     Print "Error:  Accessing web browser control ErrOLEException("& Err & ")"
     Resume Next

End Sub
'++LotusScript Development Environment:2:2:Framebeforenavigate:1:12
Sub Framebeforenavigate(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Cancel As Integer)

End Sub
'++LotusScript Development Environment:2:2:Framenavigatecomplete:1:12
Sub Framenavigatecomplete(Source As Webbrowser, Url As String)

End Sub
'++LotusScript Development Environment:2:2:Framenewwindow:1:12
Sub Framenewwindow(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Processed As Integer)

 '    A navigation has requested a new window be opened
     ' we'll take care of everything and tell the caller we opened a new window
     ' otherwise the IE application starts up in a new window


     Dim iedoc As New notesdocument(db)
     Dim newuidoc As NotesUIDocument

     Call iedoc.replaceitemvalue("Form", "WebBrowserForm")
     Call iedoc.replaceitemvalue("SaveOptions", "1")
     Call iedoc.replaceitemvalue("$ShowNavigationBar", "1")
     Call iedoc.replaceitemvalue("$NavigateToURL", Url)
     Call ieDoc.save(True,False)
     Call w.viewrefresh
     Call w.editdocument(False, iedoc)
     Set newuidoc = w.currentdocument

     Set browserobject=newuidoc.GetObject("Browser")
     browserobject.Navigate Url, Flags, Targetframename, Postdata,  Headers

     Processed = True

End Sub
'++LotusScript Development Environment:2:2:Downloadbegin:1:12
Sub Downloadbegin(Source As Webbrowser)
    '   Start Animation...
     uidoc.Navbarspinnerstart
End Sub
'++LotusScript Development Environment:2:2:Downloadcomplete:1:12
Sub Downloadcomplete(Source As Webbrowser)

     '   Stop Animation...
     uidoc.Navbarspinnerstop

End Sub
'++LotusScript Development Environment:2:2:Progresschange:1:12
Sub Progresschange(Source As Webbrowser, Progress As Long, Progressmax As Long)
     Dim percent As Long
     If progress = -1 Then
          Print "   Done"
     Else
          If ProgressMax > 0 Then
               percent = (Progress * 100) / Progressmax
               If percent > 0 Then
                    Print "   " & percent & " %  complete"
               End If
          Else
               If progress >0 Then
                    Print "   " & progress & " bytes read"
               End If
          End If
     End If

End Sub
'++LotusScript Development Environment:2:2:Titlechange:1:12
Sub Titlechange(Source As Webbrowser, Text As String)
     Dim NavBarURL As String
'    Ask the browser object for the current URL
     NavBarURL = browserobject.LocationURL
'    Set the Text in the Nav bar and the window title
     uidoc.NavBarSetText NavBarURL, Text
End Sub
'++LotusScript Development Environment:2:2:Statustextchange:1:12
Sub Statustextchange(Source As Webbrowser, Text As String)
     Print "   " & Text
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
     '*
     '*  Initialize  Variables and declare local variables
     '*
     Dim InterNetProfile As Notesdocument
     Dim ProfileView As notesview
     Dim URL As Variant

     Set Session = New NotesSession
     Set WebDatabase = Session.CurrentDatabase
End Sub
'++LotusScript Development Environment:2:2:Newwindow:1:12
Sub Newwindow(Source As Webbrowser, Url As String, Flags As Long, Targetframename As String, Postdata As Variant, Headers As String, Processed As Integer)
         '
 '    A navigation has requested a new window be opened
     ' we'll take care of everything and tell the caller we opened a new window
     ' otherwise the IE application starts up in a new window

  '   InstantiateWebBrowserFormObjects

     Dim iedoc As New notesdocument(db)
     Dim newuidoc As NotesUIDocument
    'Print "Got New Window request..."

     Call iedoc.replaceitemvalue("Form", "WebBrowserForm")
     Call iedoc.replaceitemvalue("SaveOptions", "1")
     Call iedoc.replaceitemvalue("$ShowNavigationBar", "1")
     Call iedoc.replaceitemvalue("$NavigateToURL", Url)
     Call ieDoc.save(True,False)
     Call w.viewrefresh
     Call w.editdocument(False, iedoc)
     Set newuidoc = w.currentdocument

     Set browserobject=newuidoc.GetObject("Browser")
     browserobject.Navigate Url, Flags, Targetframename, Postdata,  Headers

     Processed=True
End Sub
\    \    4
Notes Web Browsing
    0S0E
&Arial
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "InternetFunctions"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub InstantiateWebBrowserFormObjects
'++LotusScript Development Environment:2:5:(Declarations):0:10
'Global Form Variables
Dim uidoc As notesuidocument
Dim doc As notesdocument
Dim browserobject As Variant
'++LotusScript Development Environment:2:2:InstantiateWebBrowserFormObjects:1:8
Sub InstantiateWebBrowserFormObjects
     InstantiateObjects

     Set uidoc = w.CurrentDocument
     Set doc = uidoc.Document
     Set browserobject=uidoc.GetObject("Browser")

End Sub
WebBrowserForm'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Initialize
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Postopen From Source Call Postopen
     On Event Queryclose From Source Call Queryclose
     On Event Queryopen From Source Call Queryopen
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)

     InstantiateWebBrowserFormObjects
     If docprofile Is Nothing Then
          Set docprofile = New NotesDocument(db)
          docprofile.Form = "Admin"
          docprofile.StartUpOptions = "1"
          docprofile.OpenURL = "http://notes.net/welcome.nsf"
          docprofile.PreferredSearchEngine = "4"
          docprofile.SearchURL="http://www.search.com/"
          docprofile.ScanAhead = "1"
          docprofile.SearchFrequency = "2"
          docprofile.UpdatesFoundOptions = "1"
          docprofile.SendMailTo = session.UserName
          docprofile.ReduceDays = "2"
          docprofile.KeepPage = "0"
          docprofile.Save True, True
     End If
     uidoc.refreshhideformulas
           ' Make sure there is a URL field and it's not empty before we try to
          ' navigate there
     If doc.hasitem("URL")   And doc.URL(0) <> "" Then
              ' Print "Postopen Navigating to " + doc.URL(0)
          browserobject.navigate doc.url(0)
          If source.inpreviewpane Then
               firstnavigatedone = True
          End If
     End If
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)

    ' If source.document.hasitem("firstnavigatedone") Then
     FirstNavigateDone = False
     '     source.document.removeitem("firstnavigatedone")
      '    source.document.removeitem("$FILE")
       '   source.document.removeitem("$OLEOBJINFO")
        '  source.document.save True, False
   '  Print "reset flag field"
   ' Print firstnavigatedone
     'End If
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)

End Sub
SaveOptions
EXT34422Shell.Explorer.1
$OLEPreviewActivate
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     On Error Goto OLEError
     InstantiateWebBrowserFormObjects
     IEPreviousDoc( browserobject)
     Exit Sub

OLEError:
     Messagebox Error & "(PreviousDoc)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     On Error Goto OLEError
     InstantiateWebBrowserFormObjects
     IENextDoc( browserobject)
     Exit Sub
OLEError:
     Msgbox Error & "(NextDocument)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     InstantiateWebBrowserFormObjects
     IEStop (browserobject)

End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     InstantiateWebBrowserFormObjects
     browserobject.Refresh
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     InstantiateWebBrowserFormObjects
     If docprofile.OpenURL(0) <> "" Then
          browserobject.GoHome
     Else
          Msgbox "Home page is not specified in your Internet Options.  "  _
          + "Please select Actions - Internet Options to specify a home page. " , 16,"Open Home Page"
     End If
End Sub
_ReloadK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     InstantiateWebBrowserFormObjects
     browserobject.Refresh
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     InstantiateWebBrowserFormObjects
     browserobject.GoSearch
End Sub
Bookmark...K'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     If w.dialogbox("BookmarkSelect", True, True, False, False, False, False, "Select a Folder") Then
          InstantiateWebBrowserFormObjects
          Dim bookmark As New notesdocument(db)
          Dim folder As String
          Dim webdoc As notesdocument
          Set webdoc = db.getdocumentbyurl(browserobject.locationurl)
          If doc.hasitem("Folders") And doc.hasitem("NewFolderName") Then
               If doc.newfoldername(0) <>"" Then
                    bookmark.bookmark = "1"
                    bookmark.title = webdoc.title(0)
                    bookmark.url = webdoc.url(0)
                    bookmark.save True, False
                    bookmark.putinfolder(doc.folders(0)&"\"&doc.newfoldername(0))
               Else
                    bookmark.bookmark = "1"
                    bookmark.title = webdoc.title(0)
                    bookmark.url = webdoc.url(0)
                    bookmark.save True, False
                    bookmark.putinfolder(doc.folders(0))
               End If
          End If
          'Cleanup the fields put on by dialogbox
          doc.removeitem("folders")
          doc.removeitem("newfoldername")
          doc.save True, False
     End If
End Sub
Keep Page
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     On Error Resume Next
     InstantiateWebBrowserFormObjects
     Dim nulldoc As notesdocument
     Dim url As String
     url = browserobject.locationURL
     If  url <>"" Then
          ' Request the URL to be retrieved but don't wait for it to come in
          Print "(DEBUG) - Queue request for: " + url
          Set   nulldoc = db.getdocumentbyurl (url, True, False, Empty$, Empty$, Empty$, Empty$,Empty$, True)
     End If
     uidoc.refreshhideformulas
End Sub
(Internet Profile)
Internet Options
keeppage
    0S0E
Forward...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     InstantiateWebBrowserFormObjects
     Call IEForwardNote(doc,Browserobject)
End Sub
Print...
    0S0E
Share...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     InstantiateWebBrowserFormObjects
     If doc.form(0) <> "HelpForm" Then

          doc.url=browserobject.locationurl
          doc.title=browserobject.locationname

          If (docProfile Is Nothing) Then
               Msgbox "You need to specify a Web Server and Web Database to share pages with. Choose Actions - Internet Options from the menu."
               Exit Sub
          End If
          doc.tmpWebServer  = docProfile.WebServer
          doc.tmpWebDb = docProfile.WebDatabase
      'first, display a prompt to get user input
          If (w.DialogBox("ShareWebPage",True,True,"Share Options")) Then
              'determine which action we need to take
               Select Case doc.SharedOptions(0)

               Case "2" : 'user wants to copy this to the shared web database
                    If getcurrentlocation="3" Then
                         CopyDocumentToSharedDatabase doc, browserobject.locationurl
                    Else
                         CopyDocumentToSharedDatabase doc, doc.url(0)
                    End If
               Case "3" : 'user wants to rate this and copy the rating to the shared database
                    If getcurrentlocation="3" Then
                         CreateRatingDocument doc, browserobject.locationurl, browserobject.Locationname
                    Else
                         CreateRatingDocument doc,doc.url(0), doc.title(0)
                    End If
               End Select
          'remove any remaining fields that don't need to be carried around
               doc.removeItem "ForwardTo"
               doc.RemoveItem "SharedOptions"
               doc.removeItem "ForwardTo"
               doc.RemoveItem "SharedOptions"
               doc.RemoveItem "Rating"
               doc.removeItem "Content"
               doc.removeItem "Comments"
               doc.RemoveItem "tmpWebServer"
               doc.RemoveItem "tmpWebDb"
               doc.Save True,True
          End If
     Else
          Msgbox "This document is a help document."
     End If
End Sub
Internet Profiles
Internet Options
webserver
    12S13S
_Move To Folder...
Delete'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     InstantiateWebBrowserFormObjects
     Dim webdoc As notesdocument
     Dim noteid As String
     noteid = ""

     Response = Msgbox ("This will permanently delete the selected page from the database.  Do you want to continue?", 20, "Delete Document")
     If Response = 6 Then
          uidoc.close
          Set webdoc=db.getdocumentbyurl(doc.url(0))
          Call RemoveObjects(webdoc)
         ' webdoc.Remove True

          If doc.isuidocopen Then
               noteid = doc.noteid
               Delete doc
               Set doc = db.getdocumentbyid (noteid)
               doc.remove True
               w.viewrefresh
               w.viewrefresh
          Else
               doc.Remove True
          End If

          w.viewrefresh



     End If

End Sub
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
$ControlURLNavigateK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     InstantiateWebBrowserFormObjects
     Dim URL As Variant
     Dim Reload As Variant
     Dim Flags As Integer
     Dim TmpUrl As String

     URL = doc.GetitemValue("$NavigateToURL")
     Reload = doc.GetItemValue("$ReloadRefresh")
     Flags =Val (Reload(0))
     On Error 213  Resume Next

     TmpUrl=browserobject.LocationURL

     If Flags = 1 Then
          Flags = 4
     End If


     If URL(0) <> "" Then
          If URL(0) = TmpUrl Then
              ' Print "Refreshing " + Url(0)
               browserobject.Refresh
          Else
             '  Print "Attempting " + URL(0) + " Flags = "+ Str(Flags)
               browserobject.Navigate URL(0), Flags

          ' Once navigation is done delete the item form the form
               doc.REMOVEITEM("$NavigateToURL")
               doc.RemoveItem("$ReloadRefresh")
               Call doc.Save( True, False )
          End If
     Else
          Messagebox "No URL specified.", 0, "ErrorNavigating"
     End If
End Sub
_Remove From FolderK
Open History FolderK
Import Microsoft Favorites...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     ImportFavorites
End Sub
Import Netscape Bookmarks...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     ImportBookmarks
End Sub
Internet Properties...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     Dim iret As Integer
     iret=Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl", 1)
End Sub
    0S0E
Add Bookmark...K'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     InstantiateWebBrowserFormObjects
     Dim bookmarkinfo As Variant
     Dim bookmark As New notesdocument(db)
     Dim folder As String
     Dim webdoc As notesdocument

     BookmarkInfo = w.addbookmark(browserobject.Locationname)
     If Isarray(bookmarkinfo) Then
          If bookmarkinfo(0) = "0" Then
               'Create a bookmark only.  Do not retrieve the page
               bookmark.bookmark = "1"
               bookmark.title = bookmarkinfo(1)
               bookmark.url = browserobject.locationurl
               bookmark.save True, False
               bookmark.putinfolder(bookmarkinfo(2))
          Elseif bookmarkinfo(0) = "1" Then
               'create copy of page
               Set webdoc = db.getdocumentbyurl(browserobject.locationurl)
               webdoc.title = bookmarkinfo(1)
               webdoc.save True, False
               webdoc.putinfolder(bookmarkinfo(2))
          End If

     End If
End Sub
Go to BookmarksK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     InstantiateWebBrowserFormObjects
     Call w.opendatabase(db.server, db.filepath, "Favorites and Bookmarks", "",False)
End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$FILE
EXT61806.lss
$FILE
EXT61806.lso
$SCRIPTOBJ_26
$FILE
EXT34422.lss
$FILE
EXT34422.lso
$FILE
STG27910
$FILE
EXT34422
$OLEOBJINFO
$TITLE
$INFO
$WINDOWTITLE
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$BODY
$ACTIONS
$SCRIPTOBJ_0
$SCRIPTOBJ_1
$SCRIPTOBJ_2
$SCRIPTOBJ_3
$SCRIPTOBJ_4
$SCRIPTOBJ_5
$SCRIPTOBJ_6
$SCRIPTOBJ_7
$SCRIPTOBJ_8
$SCRIPTOBJ_9
$SCRIPTOBJ_11
$SCRIPTOBJ_13
$SCRIPTOBJ_18
$SCRIPTOBJ_21
$SCRIPTOBJ_22
$SCRIPTOBJ_23
$SCRIPTOBJ_24
$SCRIPTOBJ_25
EOu#B
(WebBrowserView)|WebBrowserView
www.G
www.`
    15S18S27S30S
$34Title$Conflict
WebBrowserForm
    L1S1
 $34v
www.G
www.`
    15S18S27S30S
TitleDocument Title&
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################################
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################
All Pages|($All)|Main
www.G
www.`
    15S18S36S39S
$44Title$36$Conflict
HTMLForm
$Title
HTMLFormDoc
Guided Tour
DeferredObject
Title
BLANK.HTM
bookmark
    L1S21S
www.G
www.`
    15S18S36S39S
?TitlePage Title$36Date
Admin
Admin
forward
HTMLForm
WebBrowserForm
    12S13S
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################
HelpFormHD
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################
##########################################################
##########################################################
,D    }
^t    K,
Nt    PD
_Forward
Categori_zex
_Edit Document
Send Docu_ment
_Move to Folder...
_Remove from Folder...
>|'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "InternetFunctions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuiview)
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIVIEW
     Set Source = Bind(Objectname_)
     On Event Postopen From Source Call Postopen
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuiview)
     InstantiateObjects
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
     ' Create a Browser form



End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$SCRIPTOBJ_19
$SCRIPTOBJ_20
$SCRIPTOBJ_7
$SCRIPTOBJ_9
$SCRIPTOBJ_10
$SCRIPTOBJ_18
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ACTIONS
$ViewGlobalScript
$ViewScript
$ViewScript_O
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "AgentFunctions"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub ReduceDocumentsToLinks
Declare Sub RemoveDocumentsFromDatabase
Declare Sub SetupExpirationDates
Declare Function DocumentCanBeProcessed  As Integer
Declare Sub ReduceOneDocumentToLink
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim housekeepingagent As notesagent
Dim docCollection As NotesDocumentCollection
Dim urldoc As NotesDocument
Dim doc As NotesDocument
Dim dtExpiration As NotesDateTime
Dim dtLastAccessed As NotesDateTime
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
     On Error Goto ProcessError
     InstantiateAgentObjects

     'Open the error log for error handling
     Set HousekeepingAgent = Session.currentagent
     Set AgentLog = OpenLog(HousekeepingAgent.name)

     If LogLocation = "Agent Log" Then agentLog.LogErrors = True
     Call logaction( "Starting Housekeeping agent.....")

      'check to see if we need to perform and database/document cleanup
     If (docprofile.ReduceDays(0) = "0") Then
          ReduceDocumentsToLinks
     Elseif (docprofile.ReduceDays(0) = "1") Then
          RemoveDocumentsFromDatabase
     End If
     Goto Cleanup

ProcessError:
     Call logerror(Err, Error$)
     Call logaction("The preceeding error occurred in the Initialization routine of the Housekeeping Agent.")
     Resume Next
Cleanup:
     Call logaction("Housekeeping Agent finished."     )
     If LogLocation = "Agent Log" Then  Call agentlog.close

End Sub
'++LotusScript Development Environment:2:2:ReduceDocumentsToLinks:1:8
Sub ReduceDocumentsToLinks
     On Error Goto ProcessError
     SetupExpirationDates

     Set docCollection = db.AllDocuments
     Set doc = docCollection.GetFirstDocument
     While Not (doc Is Nothing)
          If (DocumentCanBeProcessed) Then ReduceOneDocumentToLink
          Set doc = docCollection.GetNextDocument(doc)
     Wend
     Exit Sub
ProcessError:
     Call logerror(Err, Error$)
     Call logaction("The preceeding error occurred in the ReduceDocumentsToLinks routine of the Housekeeping Agent.")
     Resume Next

End Sub
'++LotusScript Development Environment:2:2:RemoveDocumentsFromDatabase:1:8
Sub RemoveDocumentsFromDatabase
     On Error Goto ProcessError
     SetupExpirationDates
     Set docCollection = db.AllDocuments
     For i = 1 To docCollection.Count
          Set doc = docCollection.GetNthDocument(i)
          If (DocumentCanBeProcessed) Then
               Call RemoveObjects(doc)
               Call logaction( "Removing pages that have not been read for " & docprofile.ReduceNumDays(0) & " days...")
               doc.Remove True
          End If
     Next
     Exit Sub

ProcessError:
     Call logerror(Err, Error$)
     Call logaction("The preceeding error occurred in the RemoveDocumentsFromDatabase routine of the Housekeeping Agent.")
     Resume Next

End Sub
'++LotusScript Development Environment:2:2:SetupExpirationDates:1:8
Sub SetupExpirationDates
     On Error Goto ProcessError
'initiate the date/time objects
     Set dtLastAccessed = New NotesDateTime("")
     Set dtExpiration = New NotesDateTime("")
     dtLastAccessed.SetNow
     dtExpiration.SetNow
'dtExpired must be set back the number of days specified in the profile document
     dtExpiration.AdjustDay(-1*Cint(docprofile.ReduceNumDays(0)))
     Exit Sub
ProcessError:
     Call logerror(Err, Error$)
     Call logaction("The preceeding error occurred in the SetExpirationDates routine of the Housekeeping Agent.")
     Resume Next
End Sub
'++LotusScript Development Environment:2:1:DocumentCanBeProcessed:1:8
Function DocumentCanBeProcessed  As Integer
     On Error Goto ProcessError
'determines if a document meets the criteria to be reduced or removed from the database
     If (doc.Form(0) = "Admin") Then
          DocumentCanBeProcessed = False
          Exit Function
     End If
'if this is the home page, do not process it
     If (doc.Url(0) = docprofile.OpenUrl(0)) Then
          DocumentCanBeProcessed = False
          Exit Function
     End If
     'if this page is a Web Browser Object page, do not process it
     If (doc.form(0) = "WebBrowserForm") Then
          documentcanbeprocessed = False
          Exit Function
     End If
'compare the last accessed date/time
     dtLastAccessed.LSLocalTime = doc.LastAccessed
     If (dtExpiration.TimeDifference(dtLastAccessed) > 0) Then DocumentCanBeProcessed = True
     Exit Function
ProcessError:
     Call logerror(Err, Error$)
     Call logaction("The preceeding error occurred in the DocumentCanBeProcessed routine of the Housekeeping Agent.")
     Resume Next
End Function
'++LotusScript Development Environment:2:2:ReduceOneDocumentToLink:1:8
Sub ReduceOneDocumentToLink
     On Error Goto ProcessError

     Call logaction( "Reducing pages that have not been read for " & docprofile.ReduceNumDays(0) & " days...")
     doc.RemoveItem "Body"
     doc.RemoveItem "HTMLSouce"
     doc.RemoveItem "HTMLBody"
     doc.RemoveItem "$Background"
     doc.RemoveItem "$FILE"
     doc.RemoveItem "URLLinks1"
     doc.RemoveItem "WebAheadStatus"
     doc.RemoveItem "WebAgentError"
     doc.RemoveItem "PageMinderStatus"
     doc.Save True,True
     Exit Sub

ProcessError:
     Call logerror(Err, Error$)
     Call logaction("The preceeding error occurred in the ReduceOneDocumentToLink routine of the Housekeeping Agent.")
     Resume Next
End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
{>HX!
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
sZ%!ZM}
%68E;
I8sL;r
$Flags
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
sZ%!ZM}
$Flags
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
sZ%!ZM}
$Flags
    0S0E
    0S0E
    0S0E
    0S0E
Browse'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     Browse
End Sub
Delete'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     viewdelete

End Sub
_ReloadK(
    0S0E
    0S0E
Print...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     PrintWebDocument
End Sub
_SearchK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     Dim docLocal As NotesDocument
     Dim browserobject As Variant
     Dim objectitem As notesrichtextitem

     Dim docCollection As NotesDocumentCollection
     Set docCollection = db.UnprocessedDocuments
     If (docCollection.Count = 0) Then
          Msgbox "You must select a document.",16,"Error"
          Exit Sub
     End If
     Set docLocal = docCollection.GetFirstDocument
     If docLocal.Form(0) = "WebBrowserForm" Then
          Set objectitem = docLocal.getfirstitem("Browser")
          browserobject = objectitem.getembeddedobject("Browser")
          IESearch(browserobject)
     Else
          OpenSearchSite docLocal
     End If

End Sub
_Forward
Sh_are...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
Declare Function GetInternetProfile
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     Dim docLocal As NotesDocument
     Dim webdoc As notesdocument
     Dim docCollection As NotesDocumentCollection
     Set docCollection = db.UnprocessedDocuments
     If (docCollection.Count = 0) Then
          Msgbox "You must select a document.",16,"Error"
          Exit Sub
     End If
     Set docLocal = docCollection.GetFirstDocument
     If docLocal.hasitem("URL") Then
          docLocal.tmpWebServer  = docProfile.WebServer
          docLocal.tmpWebDb = docProfile.WebDatabase
          docLocal.Save True, True
          If (w.DialogBox("ShareWebPage", True, True, False, False, False, False, "Share Options", doclocal)) Then
               docLocal.Save True, True
               Select Case docLocal.SharedOptions(0)
               'case 1 was previously forward bookmark.  That's now done off of the forward option
               Case "2" : 'user wants to copy this to the shared web database
                    If docLocal.Form(0) = "WebBrowserForm" Then
                         CopyDocumentToSharedDatabase docLocal, browserobject.locationurl
                    Else
                         CopyDocumentToSharedDatabase docLocal, docLocal.url(0)
                    End If
               Case "3" : 'user wants to rate this and copy the rating to the shared database
                    If docLocal.Form(0) = "WebBrowserForm" Then
                         CreateRatingDocument docLocal, browserobject.locationurl, browserobject.Locationname
                    Else
                         CreateRatingDocument docLocal,docLocal.url(0), docLocal.title(0)
                    End If
               End Select
          'remove any remaining fields that don't need to be carried around
               docLocal.removeItem "ForwardTo"
               docLocal.RemoveItem "SharedOptions"
               docLocal.RemoveItem "Rating"
               docLocal.removeItem "Content"
               docLocal.removeItem "Comments"
          End If
          docLocal.RemoveItem "tmpWebServer"
          docLocal.RemoveItem "tmpWebDb"
          docLocal.Save True, True
     Else
          Msgbox "This document does not contain a URL."
     End If
End Sub
'++LotusScript Development Environment:2:1:GetInternetProfile:1:8
Function GetInternetProfile
         'we need to get the profile document to make sure this is feasible and to get the location of the shared db
     Set view = db.getView("(Internet Profile)")
     Set GetInternetProfile = view.GetFirstDocument
End Function
Internet Profiles
Internet Options
WebServer
    0S0E
_Move to Folder...
Categori_zeK
_Edit Document
Send Docu_ment
Move Page to Folder...
    0S0E
_Remove from Folder...
_Reduce to BookmarkK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     Dim docCollection As NotesDocumentCollection
     Dim docLocal As NotesDocument

     Set docCollection = db.UnprocessedDocuments
     If (docCollection.Count = 0) Then
          Msgbox "You must select a document.",16,"Error"
          Exit Sub
     End If
     Set docLocal = docCollection.GetFirstDocument
     While Not (docLocal Is Nothing)
          RemoveObjects docLocal
          ReduceToLink docLocal
          Set docLocal = docCollection.GetNextDocument(docLocal)
     Wend
End Sub
Open History FolderK
Import Microsoft Favorites...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     ImportFavorites
End Sub
Import Netscape Bookmarks...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     ImportBookmarks
End Sub
Internet Properties...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     Dim iret As Integer
     iret=Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl", 1)
End Sub
    0S0E
Forward...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     Dim docLocal As NotesDocument
     Dim docCollection As NotesDocumentCollection
     Set docCollection = db.UnprocessedDocuments
     If (docCollection.Count = 0) Then
          Msgbox "You must select a document.",16,"Error"
          Exit Sub
     Else
          For j = 1 To docCollection.Count
               Set docLocal = docCollection.getnthdocument(j)
               If (w.dialogbox ("Forward", True, True, False, False, False, False, " Forward Options", docLocal)) Then
                    Select Case docLocal.ForwardOptions(0)
                    Case "1" : 'user wants to forward the URL only
                         Call CreateIELink(doclocal.url(0), doclocal.title(0))
                    Case "2" : 'user wants to send entire page
                         Call  ViewForward(docLocal)
                    End Select
          'remove any remaining fields that don't need to be carried around
                    docLocal.RemoveItem "ForwardOptions"
                    docLocal.save True, False

               End If
               Exit Sub
          Next
     End If
     Exit Sub
End Sub
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "InternetFunctions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuiview)
Declare Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIVIEW
     Set Source = Bind(Objectname_)
     On Event Postopen From Source Call Postopen
     On Event Queryaddtofolder From Source Call Queryaddtofolder
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuiview)
     InstantiateObjects
End Sub
'++LotusScript Development Environment:2:2:Queryaddtofolder:1:12
Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
     Call MoveToFolder(source,target,continue)
End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
o9wZ"n%;
$SCRIPTOBJ_22
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$FormFormula
$Comment
$ACTIONS
$SCRIPTOBJ_2
$SCRIPTOBJ_3
$SCRIPTOBJ_6
$SCRIPTOBJ_7
$SCRIPTOBJ_9
$SCRIPTOBJ_16
$SCRIPTOBJ_18
$SCRIPTOBJ_19
$SCRIPTOBJ_20
$SCRIPTOBJ_21
$ViewGlobalScript
$ViewGlobalScript_O
$ViewScript
$ViewScript_O
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
sZ%!ZM}
$Flags
All Bookmarks
www.G
www.`
    15S18S36S39S
$44Title$36$Conflict
Bookmark
    L1S1
Title
www.G
www.`
    15S18S36S39S
Q@TitlePage Title$36Date
Admin
Admin
forward
HTMLForm
WebBrowserForm
    12S13S
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################
Web Bots\Page MinderWeb Bots\Page Minder
Bookmark
HelpForm
PageMinderStatus
PageMinderStatus
PageMinderStatus
PageMinderStatus
PageMinderStatus
    6S9S10S
$39Title$36URL$Conflict
$39Title
Title
Bookmark
HelpForm
PageMinderStatus
PageMinderStatus
PageMinderStatus
PageMinderStatus
PageMinderStatus
    6S9S10STitlePageTitle$36Date
URLURL&
Admin
Admin
forward
HTMLForm
HelpForm
HelpForm
WebBrowserForm
    12S13S23S24S25S3FY
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
Web Ahead
1SfL3
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
    0S0E
    0S0E
    0S0E
    0S0E
Browse'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Browse
End Sub
Delete'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     ViewDelete
End Sub
_ReloadK(
    0S0E
    0S0E
Print...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     PrintWebDocument
End Sub
_SearchK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Dim docLocal As NotesDocument
     Dim browserobject As Variant
     Dim objectitem As notesrichtextitem

     Dim docCollection As NotesDocumentCollection
     Set docCollection = db.UnprocessedDocuments
     If (docCollection.Count = 0) Then
          Msgbox "You must select a document.",16,"Error"
          Exit Sub
     End If
     Set docLocal = docCollection.GetFirstDocument
     If docLocal.Form(0) = "WebBrowserForm" Then
          Set objectitem = docLocal.getfirstitem("Browser")
          browserobject = objectitem.getembeddedobject("Browser")
          IESearch(browserobject)
     Else
          OpenSearchSite docLocal
     End If

End Sub
_Forward
Sh_are...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
Declare Function GetInternetProfile
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Dim docLocal As NotesDocument
     Dim webdoc As notesdocument
     Dim docCollection As NotesDocumentCollection
     Set docCollection = db.UnprocessedDocuments
     If (docCollection.Count = 0) Then
          Msgbox "You must select a document.",16,"Error"
          Exit Sub
     End If
     Set docLocal = docCollection.GetFirstDocument
     If docLocal.hasitem("URL") Then
          docLocal.tmpWebServer  = docProfile.WebServer
          docLocal.tmpWebDb = docProfile.WebDatabase
          docLocal.Save True, True
          If (w.DialogBox("ShareWebPage", True, True, False, False, False, False, "Share Options", doclocal)) Then
               docLocal.Save True, True
               Select Case docLocal.SharedOptions(0)
               'case 1 was previously forward bookmark.  That's now done off of the forward option
               Case "2" : 'user wants to copy this to the shared web database
                    If docLocal.Form(0) = "WebBrowserForm" Then
                         CopyDocumentToSharedDatabase docLocal, browserobject.locationurl
                    Else
                         CopyDocumentToSharedDatabase docLocal, docLocal.url(0)
                    End If
               Case "3" : 'user wants to rate this and copy the rating to the shared database
                    If docLocal.Form(0) = "WebBrowserForm" Then
                         CreateRatingDocument docLocal, browserobject.locationurl, browserobject.Locationname
                    Else
                         CreateRatingDocument docLocal,docLocal.url(0), docLocal.title(0)
                    End If
               End Select
          'remove any remaining fields that don't need to be carried around
               docLocal.removeItem "ForwardTo"
               docLocal.RemoveItem "SharedOptions"
               docLocal.RemoveItem "Rating"
               docLocal.removeItem "Content"
               docLocal.removeItem "Comments"
          End If
          docLocal.RemoveItem "tmpWebServer"
          docLocal.RemoveItem "tmpWebDb"
          docLocal.Save True, True
     Else
          Msgbox "This document does not contain a URL."
     End If
End Sub
'++LotusScript Development Environment:2:1:GetInternetProfile:1:8
Function GetInternetProfile
         'we need to get the profile document to make sure this is feasible and to get the location of the shared db
     Set view = db.getView("(Internet Profile)")
     Set GetInternetProfile = view.GetFirstDocument
End Function
Internet Profiles
Internet Options
WebServer
    0S0E
_Move to Folder...
Categori_zeK
_Edit Document
Send Docu_ment
Move Page to Folder...
    0S0E
_Remove from Folder...
Import Microsoft Favorites...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     ImportFavorites
End Sub
Import Netscape Bookmarks...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     ImportBookmarks
End Sub
Forward...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Dim docLocal As NotesDocument
     Dim docCollection As NotesDocumentCollection
     Set docCollection = db.UnprocessedDocuments
     If (docCollection.Count = 0) Then
          Msgbox "You must select a document.",16,"Error"
          Exit Sub
     Else
          For j = 1 To docCollection.Count
               Set docLocal = docCollection.getnthdocument(j)
               If (w.dialogbox ("Forward", True, True, False, False, False, False, " Forward Options", docLocal)) Then
                    Select Case docLocal.ForwardOptions(0)
                    Case "1" : 'user wants to forward the URL only
                         Call CreateIELink(doclocal.url(0), doclocal.title(0))
                    Case "2" : 'user wants to send entire page
                         Call  ViewForward(docLocal)
                    End Select
          'remove any remaining fields that don't need to be carried around
                    docLocal.RemoveItem "ForwardOptions"
                    docLocal.save True, False

               End If
               Exit Sub
          Next
     End If
     Exit Sub
End Sub
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "InternetFunctions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuiview)
Declare Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIVIEW
     Set Source = Bind(Objectname_)
     On Event Postopen From Source Call Postopen
     On Event Queryaddtofolder From Source Call Queryaddtofolder
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuiview)
     InstantiateObjects
End Sub
'++LotusScript Development Environment:2:2:Queryaddtofolder:1:12
Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
 '    Call MoveToFolder(source,target,continue)
End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$SCRIPTOBJ_20
$SCRIPTOBJ_19
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$FormFormula
$Comment
$ACTIONS
$SCRIPTOBJ_2
$SCRIPTOBJ_3
$SCRIPTOBJ_6
$SCRIPTOBJ_7
$SCRIPTOBJ_9
$SCRIPTOBJ_16
$SCRIPTOBJ_17
$SCRIPTOBJ_18
$ViewGlobalScript
$ViewGlobalScript_O
$ViewScript
$ViewScript_O
Browse'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Browse
End Sub
Delete'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     ViewDelete
End Sub
Print...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     PrintWebDocument
End Sub
_Forward
Sh_are...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
Declare Function GetInternetProfile
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     Dim docLocal As NotesDocument
     Dim webdoc As notesdocument
     Dim docCollection As NotesDocumentCollection

     Set docCollection = db.UnprocessedDocuments
     If (docCollection.Count = 0) Then
          Msgbox "You must select a document.",16,"Error"
          Exit Sub
     End If
     Set docLocal = docCollection.GetFirstDocument
     If docLocal.hasitem("URL") Then
          docLocal.tmpWebServer  = docProfile.WebServer
          docLocal.tmpWebDb = docProfile.WebDatabase
          docLocal.Save True, True
          If (w.DialogBox("ShareWebPage", True, True, False, False, False, False, "Share Options", doclocal)) Then
               docLocal.Save True, True
               Select Case docLocal.SharedOptions(0)
               'case 1 was previously forward bookmark.  That's now done off of the forward option
               Case "2" : 'user wants to copy this to the shared web database
                    If docLocal.Form(0) = "WebBrowserForm" Then
                         CopyDocumentToSharedDatabase docLocal, browserobject.locationurl
                    Else
                         CopyDocumentToSharedDatabase docLocal, docLocal.url(0)
                    End If
               Case "3" : 'user wants to rate this and copy the rating to the shared database
                    If docLocal.Form(0) = "WebBrowserForm" Then
                         CreateRatingDocument docLocal, browserobject.locationurl, browserobject.locationname
                    Else
                         CreateRatingDocument docLocal,docLocal.url(0), docLocal.title(0)
                    End If
               End Select
          'remove any remaining fields that don't need to be carried around
               docLocal.removeItem "ForwardTo"
               docLocal.RemoveItem "SharedOptions"
               docLocal.RemoveItem "Rating"
               docLocal.removeItem "Content"
               docLocal.removeItem "Comments"
          End If
          docLocal.RemoveItem "tmpWebServer"
          docLocal.RemoveItem "tmpWebDb"
          docLocal.Save True, True
     Else
          Msgbox "This document does not contain a URL."
     End If
End Sub
'++LotusScript Development Environment:2:1:GetInternetProfile:1:8
Function GetInternetProfile
         'we need to get the profile document to make sure this is feasible and to get the location of the shared db
     Set view = db.getView("(Internet Profile)")
     Set GetInternetProfile = view.GetFirstDocument
End Function
Internet Profiles
Internet Options
WebServer
    0S0E
Categori_zeK
_Edit Document
Send Docu_ment
_Move to Folder...
Move Page to Folder...
    0S0E
_Remove from Folder...
Import Microsoft Favorites...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     ImportFavorites
End Sub
Import Netscape Bookmarks...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     ImportBookmarks
End Sub
Forward...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     Dim docLocal As NotesDocument
     Dim docCollection As NotesDocumentCollection
     Set docCollection = db.UnprocessedDocuments
     If (docCollection.Count = 0) Then
          Msgbox "You must select a document.",16,"Error"
          Exit Sub
     Else
          For j = 1 To docCollection.Count
               Set docLocal = docCollection.getnthdocument(j)
               If (w.dialogbox ("Forward", True, True, False, False, False, False, " Forward Options", docLocal)) Then
                    Select Case docLocal.ForwardOptions(0)
                    Case "1" : 'user wants to forward the URL only
                         Call CreateIELink(doclocal.url(0), doclocal.title(0))
                    Case "2" : 'user wants to send entire page
                         Call  ViewForward(docLocal)
                    End Select
          'remove any remaining fields that don't need to be carried around
                    docLocal.RemoveItem "ForwardOptions"
                    docLocal.save True, False

               End If
               Exit Sub
          Next
     End If
     Exit Sub
End Sub
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "InternetFunctions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuiview)
Declare Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIVIEW
     Set Source = Bind(Objectname_)
     On Event Postopen From Source Call Postopen
     On Event Queryaddtofolder From Source Call Queryaddtofolder
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuiview)
     InstantiateObjects
End Sub
'++LotusScript Development Environment:2:2:Queryaddtofolder:1:12
Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
     Call MoveToFolder(source,target,continue)
End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$SCRIPTOBJ_14
$TITLE
$Name
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$FormFormula
$Comment
$ACTIONS
$SCRIPTOBJ_0
$SCRIPTOBJ_1
$SCRIPTOBJ_2
$SCRIPTOBJ_4
$SCRIPTOBJ_11
$SCRIPTOBJ_12
$SCRIPTOBJ_13
$ViewGlobalScript
$ViewGlobalScript_O
$ViewScript
$ViewScript_O
>%!-eWv
Web Bots\Web AheadWeb Bots\Web Ahead
Bookmark
HelpForm
PageMinderStatus
PageMinderStatus
PageMinderStatus
PageMinderStatus
PageMinderStatus
    6S9S10S
$39Title$36URL$Conflict
$39Title
Title
Bookmark
HelpForm
PageMinderStatus
PageMinderStatus
PageMinderStatus
PageMinderStatus
PageMinderStatus
    6S9S10STitlePageTitle$36Date
URLURL&
Admin
Admin
forward
HTMLForm
HelpForm
HelpForm
WebBrowserForm
    12S13S23S24S25S3FY
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
HelpFormUsing the Page Minder Feature
CN=Teresa Deane/O=Iris#########################
>%!-eWv
HelpFormUsing the Web Ahead Feature
CN=Teresa Deane/O=Iris###########################
http://www.lotus.com/Lotus Development Corporation1
CN=Teresa Deane/O=Iris
#######################################################
IBM Home Page1http://www.ibm.com/
CN=Teresa Deane/O=Iris
1Notes Nethttp://www.notes.net/
CN=Teresa Deane/O=Iris
###########
InternetFunctionss34Q1
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################
Internet Options...303
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################################
Page Minder
1SfL3
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
##########################################################
Browse'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     Browse
End Sub
Delete'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     ViewDelete
End Sub
Print...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     PrintWebDocument
End Sub
_Forward
Sh_are...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
Declare Function GetInternetProfile
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     Dim docLocal As NotesDocument
     Dim webdoc As notesdocument
     Dim docCollection As NotesDocumentCollection
     Set docCollection = db.UnprocessedDocuments
     If (docCollection.Count = 0) Then
          Msgbox "You must select a document.",16,"Error"
          Exit Sub
     End If
     Set docLocal = docCollection.GetFirstDocument
     If docLocal.hasitem("URL") Then
          docLocal.tmpWebServer  = docProfile.WebServer
          docLocal.tmpWebDb = docProfile.WebDatabase
          docLocal.Save True, True
          If (w.DialogBox("ShareWebPage", True, True, False, False, False, False, "Share Options", doclocal)) Then
               docLocal.Save True, True
               Select Case docLocal.SharedOptions(0)
               'case 1 was previously forward bookmark.  That's now done off of the forward option
               Case "2" : 'user wants to copy this to the shared web database
                    If docLocal.Form(0) = "WebBrowserForm" Then
                         CopyDocumentToSharedDatabase docLocal, browserobject.locationurl
                    Else
                         CopyDocumentToSharedDatabase docLocal, docLocal.url(0)
                    End If
               Case "3" : 'user wants to rate this and copy the rating to the shared database
                    If docLocal.Form(0) = "WebBrowserForm" Then
                         CreateRatingDocument docLocal, browserobject.locationurl,browserobject.locationname
                    Else
                         CreateRatingDocument docLocal,docLocal.url(0),docLocal.title(0)
                    End If
               End Select
          'remove any remaining fields that don't need to be carried around
               docLocal.removeItem "ForwardTo"
               docLocal.RemoveItem "SharedOptions"
               docLocal.RemoveItem "Rating"
               docLocal.removeItem "Content"
               docLocal.removeItem "Comments"
          End If
          docLocal.RemoveItem "tmpWebServer"
          docLocal.RemoveItem "tmpWebDb"
          docLocal.Save True, True
     Else
          Msgbox "This document does not contain a URL."
     End If
End Sub
'++LotusScript Development Environment:2:1:GetInternetProfile:1:8
Function GetInternetProfile
         'we need to get the profile document to make sure this is feasible and to get the location of the shared db
     Set view = db.getView("(Internet Profile)")
     Set GetInternetProfile = view.GetFirstDocument
End Function
Internet Profiles
Internet Options
WebServer
    0S0E
Categori_zeK
_Edit Document
Send Docu_ment
_Move to Folder...
Move Page to Folder...
    0S0E
_Remove from Folder...
Import Microsoft Favorites...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     ImportFavorites
End Sub
Import Netscape Bookmarks...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     ImportBookmarks

End Sub
Forward...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     Dim docLocal As NotesDocument
     Dim docCollection As NotesDocumentCollection
     Set docCollection = db.UnprocessedDocuments
     If (docCollection.Count = 0) Then
          Msgbox "You must select a document.",16,"Error"
          Exit Sub
     Else
          For j = 1 To docCollection.Count
               Set docLocal = docCollection.getnthdocument(j)
               If (w.dialogbox ("Forward", True, True, False, False, False, False, " Forward Options", docLocal)) Then
                    Select Case docLocal.ForwardOptions(0)
                    Case "1" : 'user wants to forward the URL only
                         Call CreateIELink(doclocal.url(0), doclocal.title(0))
                    Case "2" : 'user wants to send entire page
                         Call  ViewForward(docLocal)
                    End Select
          'remove any remaining fields that don't need to be carried around
                    docLocal.RemoveItem "ForwardOptions"
                    docLocal.save True, False

               End If
               Exit Sub
          Next
     End If
     Exit Sub
End Sub
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "InternetFunctions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuiview)
Declare Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIVIEW
     Set Source = Bind(Objectname_)
     On Event Postopen From Source Call Postopen
     On Event Queryaddtofolder From Source Call Queryaddtofolder
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuiview)
     InstantiateObjects
End Sub
'++LotusScript Development Environment:2:2:Queryaddtofolder:1:12
Sub Queryaddtofolder(Source As Notesuiview, Target As Variant, Continue As Variant)
     Call MoveToFolder(source,target,continue)
End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
"x]&c
$SCRIPTOBJ_14
$TITLE
$Name
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$FormFormula
$Comment
$ACTIONS
$SCRIPTOBJ_0
$SCRIPTOBJ_1
$SCRIPTOBJ_2
$SCRIPTOBJ_4
$SCRIPTOBJ_11
$SCRIPTOBJ_12
$SCRIPTOBJ_13
$ViewGlobalScript
$ViewGlobalScript_O
$ViewScript
$ViewScript_O
HelpForm
Title
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
Kb4ayB
$TITLE
$INFO
$$ScriptName
$BODY
'++LotusScript Development Environment:2:5:(Options):0:74
Option Base 1
Use "AgentFunctions"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub WormThePage(URLToWorm As Variant)
Declare Sub ProcessURLField
Declare Sub RetrievePages(y As Integer)
Declare Sub CheckPage(urltocheck As String, y As Integer)
Declare Function OKToRetrieve(checkurl As String, ArraySizeOK As Integer) As Integer
Declare Function OKToGetPerRobots( url As Variant ) As Integer
Declare Sub FetchRobotsFile(url As Variant, currentdomain As String)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim LevelsToWorm As Variant
Dim WebAheadAuthentication As Variant
Dim PageToCrawl As notesdocument
Dim NextPageToCrawl As notesdocument
Dim URLTextList() As String
Dim URLListIndex As Integer
Dim pages_to_worm () As String          'list of pages that links need to be retrieved from
Dim ptw As Integer
Dim next_pages_to_worm () As String    'list of pages to retrieve in the next level pass
Dim nptw As Integer
Dim pages_retrieved ()As String            'list of pages that have already been retrieved for this session
Dim pr As Integer
Dim pages_wormed () As String            'list of pages that have already been processed in this session
Dim pw As Integer
Dim CurrentPageRetrieved As notesdocument
Dim ArraySizeOK As Integer
Dim WebAheadAgent As notesagent
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

     '*
     '*  Initialize  Variables and declare local variables
     '*

     Dim InterNetProfile As Notesdocument
     Dim ProfileView As notesview
     Dim WebAheadFolder As notesview
     Dim URL As Variant

     '*
     '*  Initialize Variables
     '*
     ArraySizeOK = True
     pw=1
     nptw=1
     pr=1
     ptw=1
     Redim pages_to_worm(ptw)
     Redim Next_Pages_to_worm(nptw)
     Redim pages_retrieved(pr)
     Redim pages_wormed(pw)
     InstantiateAgentObjects
     Set WebDatabase = Session.CurrentDatabase
     Set WebAheadAgent = Session.currentagent

      '*
     '*  Open/Create the Agent Error Log on the client.
     '*

     Set AgentLog = OpenLog(WebAheadAgent.name)

     If LogLocation = "Agent Log" Then agentLog.LogErrors = True

     Call logaction( "Starting Web Ahead agent.....")


     '*
     '*  First check to see if the current location settings are set for local retrievals.
     '*

     If WebLocationOK Then

          If Not ( WebDatabase Is Nothing) Then
               Set datadoc = Session.SavedData

               If (DataDoc Is Nothing) Then
                    Set DataDoc = New Notesdocument (WebDatabase)
               End If
          Else
               Call  logerror(1, "Unable to open Web Database.")
               Goto cleanup
          End If

          If View Is Nothing Then
               Call logerror(4, "Profile View does not exist.  Please replace the design of " +WebDatabase.Title+" with Personal Web Navigator 4.6 template.")
               Goto cleanup
          End If


          If docProfile Is Nothing Then
               Call logerror(4, "No profile document, please select Actions - Internet Options and save the document. ")
               Goto cleanup
          End If

     '*
     '*  Retrieving pertinent values from the
     '*  Internet Profile.
     '*

          LevelsToWorm = docProfile.ScanAhead
          If LevelsToWorm(0) = "" Then
               'Number of levels to Web Ahead not specified, assuming 1.
               LevelsToWorm(0) = "1"
          End If

     '*
     '*  The following lines instantiate the WebAhead folder and
     '*  perform the worming of the pages.
     '*

          Set WebAheadFolder = WebDatabase.GetView("Web Bots\Web Ahead")

          If (WebAheadFolder Is Nothing) Then
               Call logerror(2, "Could not find Web Ahead Folder.  Please replace the design of " +WebDatabase.Title+" with Personal Web Navigator 4.5 and rerun the Web Ahead agent.")
               Goto cleanup
          End If

          Set PageToCrawl = WebAheadFolder.GetfirstDocument

          If (PageToCrawl Is Nothing) Then
               logaction( "No documents were found to retrieve links from.  Web Ahead Agent successfully finished.")
               Goto cleanup
          Else

          '*
          '*  The while loop retrieves all links off  the pages in the Web Ahead folder for every level specified.
          '*

               While Not (PageToCrawl Is Nothing)
                    If PageToCrawl.form(0) = "HelpForm"  Goto Nextdocument
                    If PageToCrawl.hasitem("URL") Then
                         URL = PageToCrawl.URL
                         Call PageToCrawl.ReplaceItemValue("WebAheadStatus", "1")
                         Call PageToCrawl.Save(True, False)
                         WormThePage(URL(0))
                    Else
                         Call PageToCrawl.ReplaceItemValue("WebAheadStatus", "2")
                         Call PageToCrawl.Save(True, False)
                         Goto NextDocument
                    End If
NextDocument:
                    If PageToCrawl.WebAheadStatus(0) <> "2" Then
                         Set NextPageToCrawl = WebAheadFolder.Getnextdocument(PageToCrawl)
                         Call PageToCrawl.Removefromfolder("Web Bots\Web Ahead")
                         Set PageToCrawl = NextPageToCrawl
                    Else
                         Set PageToCrawl = WebAheadFolder.Getnextdocument(PageToCrawl)
                    End If
               Wend

          End If
     End If
Cleanup:
     logaction( "Web Ahead agent ending.")
End Sub
'++LotusScript Development Environment:2:2:WormThePage:1:8
Sub WormThePage(URLToWorm As Variant)

     '*
     '*  This routine retrieves all links on the current page for the number of levels
     '*  specified in the internet options form.
     '*

     Pages_To_Worm(1) = URLToWorm

     '*
     '* Check to see if there is a page to retrieve links from in the array pages_to_worm
     '*

     For y = 1 To Cint(LevelsToWorm(0))
          If ( DebugFlag = "1" ) Then logaction( "Retrieving level " + Cstr(y))
          If pages_to_worm(1) <> "" Then
               Forall J  In pages_to_worm

                    If ( DebugFlag = "1" ) Then logaction( "About to retrieve links on  " + j  )

                    '*
                    '* Before we retrieve it, make sure that it hasn't already been retrieved for this session
                    '*

                    If OKToRetrieve(j, ArraySizeOK) Then

                         '*
                         '*  Make sure it's okay to retrieve pages from the site per the sites robots.txt
                         '*

                         If OKToGetPerRobots(j) Then
                              Set CurrentPageRetrieved = RetrieveOverInternet(j,PageToCrawl,1)
                         Else
                              If ( DebugFlag = "1" ) Then  Call logerror(10, "Not okay to retrieve links off the site per robots.txt")
                              If ( DebugFlag = "1" ) Then Call logerror(10, "Could not retrieve links off the page"+j+".")
                              Call PageToCrawl.ReplaceItemValue("WebAheadStatus", "2")
                              Call PageToCrawl.Save(True,False)
                              Exit Sub
                         End If

                    Else
                         Set CurrentPageRetrieved = WebDatabase.Getdocumentbyurl(j,0,0)

                         '*
                         '*  Make sure that the page which is already in the database is not an error page.
                         '*

                         If (CurrentPageRetrieved.HTTPStatus(0) = "200") Or (CurrentPageRetrieved.HTTPStatus(0) = "304" ) Then
                              Goto already_retrieved
                         Else
                              Set CurrentPageRetrieved = RetrieveOverInternet(j, CurrentPageRetrieved,1)
                         End If
                    End If



                    If (CurrentPageRetrieved.HTTPStatus(0) = "200") Or (CurrentPageRetrieved.HTTPStatus(0) = "304") Then
                         If ( DebugFlag = "1" ) Then Call logerror(10, "Successfully retrieved " + j)

                              '*
                              '* Add the page to the page retrieval array
                              '*
                         If pr < 10000 Then
                              pages_retrieved ( pr) = j
                              pr=pr+1
                              Redim Preserve pages_retrieved(pr)
                         Else
                              ArraySizeOK = False
                         End If

                             '*
                             '* Make sure that the returned document has a URLLinks# field
                             '* since that is where all of the URLs on the page are stored.
                             '*

already_retrieved:

                         If CurrentPageRetrieved.hasitem("URLLinks1") Then

                               '*
                               '*  Process the URLLinks# fields into one concise, singular text list of URL's
                               '*

                              ProcessURLField

                               '*
                               '*  Go ahead and retrieve the pages in the URLTextList
                               '*

                              RetrievePages(y)
                              If ( DebugFlag = "1" ) Then logaction "Retrieved "+Cstr(URLListIndex) + " from the site "+Cstr(urltoworm)+"."
                              If ( DebugFlag = "1" ) Then logaction( "Just retrieved all links off of "+PageToCrawl.getitemvalue("URL")(0))
                         Else
                              If ( DebugFlag = "1" ) Then logaction( "No links to retrieve on " + PageToCrawl.getitemvalue("URL")(0))
                         End If

                              '*
                              '*  Now that the links have been retrieved, add the page to the list of pages that have already been processed.
                              '*

                         pages_wormed(pw) =CurrentPageRetrieved.getitemvalue("URL")(0)
                         pw=pw+1
                         Redim Preserve pages_wormed(pw)

                    Else
                         If ( DebugFlag = "1" ) Then Call logerror(9, "Error page returned for " + j)
                         If ( DebugFlag = "1" ) Then Call logerror(9, "Could not retrieve links off the page"+j+".")
                    End If


               End Forall
               If ( DebugFlag = "1" ) Then logaction "Finished retrieving links for level "+Cstr(y)


               '*
               '*  Now move to the next level of pages to retrieve links from in the pages_to_worm array
               '*  Reset the pages to worm array to clear out the previous pages to worm
               '*  Note:  we only need to do this is we are retrieving links for more than one level.
               '*

               If LevelsToWorm(0) <> "1" Then
                    If nptw = 1 Then Goto Done
                    Redim pages_to_worm(nptw-1) As String
                    For z = 1 To (nptw-1)
                         pages_to_worm(z) = next_pages_to_worm(z)
                    Next Z
                    ptw = nptw

                    '*
                    '*  Reinitialize the next pages to worm array
                    '*
                    nptw=1
                    Redim next_pages_to_worm(nptw) As String
               Else
               '*
               '* We are done.  There are no more pages to retrieve off the page.  The page needs to be removed from the folder.
               '*
done:

                    Exit For
               End If
          End If
          If ( DebugFlag = "1" ) Then logaction( "Finished retrieving " + LevelsToWorm(0) +" for the page" +Cstr(URLToWorm)+". ")
          If ( DebugFlag = "1" ) Then logaction( "Retrieved " + Cstr(pw)+"pages.")

     Next Y
End Sub
'++LotusScript Development Environment:2:2:ProcessURLField:1:8
Sub ProcessURLField

     '*
     '*  The purpose of this subroutine is to process all of the URLLinks#
     '*  fields into one concise, non-duplicated list of URL's that only
     '*  refer to http pages.  The result is the global array URLTextList.
     '*

     Dim URLField As String            'the current URLLinks# field
     Dim URLNum As Integer
     Dim URLFieldNum As Integer
     Dim RawURLList As Variant
     Dim DuplicatedURLList() As String


     URLNum =1
     URLField = "URLLinks1"
     URLFieldNum = 1

     '*
     '*  Put all the URL's in one text array -- URLTextList
     '*
     While CurrentPageRetrieved.HasItem(URLField)

          RawURLList = CurrentPageRetrieved.GetItemValue(URLField)
          Redim DuplicatedURLList (Ubound(RawURLList)+1)
          Forall j In RawURLList

               '*
               '*   While we are putting all of the urls into one text array we will remove
               '*  any urls other than those that use the http protocol.
               '*

               If Instr(1, j, "http",1) <> 0 Then
                    DuplicatedURLList(URLNum) = j
                    URLNum = URLNum + 1
               End If
          End Forall

          URLFieldNum = URLFieldNum + 1
          Mid$(URLField, 5) = Cstr(URLFieldNum)
     Wend

     Redim Preserve DuplicatedURLList(URLNum)

     '*
     '*  Now all URL's to fetch are in the DuplicatedURLList array
     '*  Now duplicates need to be removed from the array to save time
     '*

     Redim URLTextList(URLNum) As String

     URLListIndex = 1
     URLTextList(1) = DuplicatedURLList(1)
     If URLNum <>1 Then
          For y = 2 To (URLNum -1)
               URLListIndex = URLListIndex + 1
               URLTextList(URLListIndex) = DuplicatedURLList(y)

               For x = 1 To (URLListIndex-1)
                    If URLTextList(x) = DuplicatedURLList(y) Then
                         URLListIndex = URLListIndex - 1
                    End If
               Next  X
          Next Y
     Else
          URLListIndex = URLListIndex + 1
     End If
     Redim Preserve URLTextList(URLListIndex)
End Sub
'++LotusScript Development Environment:2:2:RetrievePages:1:8
Sub RetrievePages(y As Integer)

     '*
     '*  This routine retrieves all of the pages in the URLTextList array.
     '*

     Forall j In URLTextList
          CheckPage j, y
     End Forall
End Sub
'++LotusScript Development Environment:2:2:CheckPage:1:8
Sub CheckPage(urltocheck As String, y As Integer)

     '*
     '*  This subroutine checks the page we are about to retrieve.
     '*  It first makes sure we have not already retrieved the page in this session.
     '*  Next it makes sure that the page retrieved is valid per the status code returned.
     '*

     Dim webdoc As notesdocument
     Dim dummydoc As notesdocument

     '*
     '*  Check to make sure we have not already retrieved the page
     '*


     If OKToRetrieve(urltocheck,ArraySizeOK) Then
          If OKToGetPerRobots(urltocheck) Then
               If Cint(LevelsToWorm(0)) - y  <> 0 Then
                    Set WebDoc = RetrieveOverInternet(urltocheck,dummydoc,1)
               Else
                    Set WebDoc = RetrieveOverInternet(urltocheck,dummydoc,0)
               End If

               If (webdoc.HTTPstatus(0) = "200") Or (webdoc.HTTPStatus(0) = "304") Then

                         '*
                         '* Add the page to the page retrieval array
                         '*
                    If pr < 10000 Then
                         pages_retrieved ( pr) = (urltocheck)
                         pr=pr+1
                         Redim Preserve pages_retrieved(pr)
                    Else
                         ArraySizeOK = False
                    End If

                    '*
                    '*  Add the page to the list of pages to be retreived
                    '*
                    If Cint(LevelsToWorm(0)) - y  <> 0 Then
                         next_pages_to_worm(nptw) = (urltocheck)
                         nptw = nptw+1
                         Redim Preserve next_pages_to_worm(nptw)
                    End If
               Elseif (webdoc.HTTPStatus(0) = "401") Then
                    '*
                    '*  The page needs to be authenticated, notify the user in the error log
                    '*
                    Call logerror(8,  "Web Ahead is unable to retrieve "+urltocheck+" because it requires authentication.")
                    Call logerror(8, "Retrieve the page manually and move it into the web ahead folder.")

               Else
                    Call logerror(9, "Page " + urltocheck +" returned a bad status code:  "+webdoc.status(0)+".")
               End If
          Else
               Call logerror(10, "Page " + urltocheck + " is forbidden by the robots.txt file on the server.")
          End If
     Else
          next_pages_to_worm(nptw) = (urltocheck)
          nptw = nptw+1
          Redim Preserve next_pages_to_worm(nptw)
     End If


End Sub
'++LotusScript Development Environment:2:1:OKToRetrieve:1:8
Function OKToRetrieve(checkurl As String, ArraySizeOK As Integer) As Integer

     '*
     '*  This function goes throught the current list of URLs which have already
     '*  been retrieved for this session.  If the page has already been retrieved,
     '*  it sets the function equal to false.
     '*
     If ArraySizeOK Then
          OKToRetrieve = True
          Forall j In pages_retrieved
               If checkurl= j Then
                    OKToRetrieve = False
                    Exit Function
               End If
          End Forall
     End If
End Function
'++LotusScript Development Environment:2:1:OKToGetPerRobots:1:8
Function OKToGetPerRobots( url As Variant ) As Integer
     '*
     '*  The purpose of this function is to check the host robots.txt file
     '*   for the site to make sure that it is okay to retrieve pages from the site.
     '*   It returns true if the page has not been excluded from robots.txt.
     '*

     Dim Currentdomain As String

     CurrentDomain = (Left(url, (Instr(8, url, "/", 1))))


     OKToGetPerRobots = True

     '*
     '* Check the complete list of "Disallow:" paths to see whether we match any of them
     '*

     If datadoc.HasItem( currentdomain ) Then
          exclist = datadoc.GetItemValue( currentdomain )
          If exclist(0) = "None" Then
               OKToGetPerRobots = True
               Exit Function
          End If
     Else
          Call   FetchRobotsFile(url, currentdomain)
          exclist = datadoc.GetItemValue( currentdomain )
          If exclist(0) = "None" Then
               OKToGetPerRobots = True
               Exit Function
          End If
     End If

          '*
          '*  Check whether any in that list match the path we want
          '*


     Forall testpath In exclist

               '*
               '*  Note:  testpath always begins with a forward-slash.  Wildcards have been removed at this stage,
               '* so "/" means disallow all paths;  "/tmp" means "/tmp*".  Testpath is also always stored in lowercase.
               '*

          Dim l As Integer
          l  = Len( testpath )
          If l > 0 Then
               If Left$( path, l )=testpath Then

                         '*
                         '* Hit an exclusion!
                         '*

                    OKToGetPerRobots = False
                    Exit Function
               End If
          End If
     End Forall

End Function
'++LotusScript Development Environment:2:2:FetchRobotsFile:1:8
Sub FetchRobotsFile(url As Variant, currentdomain As String)
     Dim exclusionpage As NotesDocument
     Dim dummypage As notesdocument
          '*
          '*  Retrieve the site's ROBOTS.TXT.
          '*

     Set exclusionpage = RetrieveOverInternet(CurrentDomain+"robots.txt" , dummypage,0)

          '*
          '* If that failed, we have free access to the site.
          '*

     If (exclusionpage.HTTPStatus(0) ="200") Or (exclusionpage.HTTPStatus(0) = "304") Then

               '*
               '* Got the robots.txt file - we have to parse the file now!
               '*

          Dim robtext As String
          Dim item As Variant
          Set item = exclusionpage.GetFirstItem("Body")
          robtext = Lcase$(item.text)

               '*
               '* Parse until we get a User-Agent line which matches "*" or "InterNotes" somewhere (or Mozilla)
               '* Then look thru the "Disallow" lines to see whether they match our URL path
               '*

          Dim begin As Integer
          Dim dbegin As Integer
          Dim uapos As Integer
          Dim dapos As Integer
          Dim danum As Integer
          Dim t As String
          Dim  tt As String
          Dim darray (0 To 50 ) As String
          begin = 1
          uapos = 1
          danum = 0

          While uapos>0
               uapos = Instr( begin, robtext, "user-agent:")
               If uapos>0 Then
                    uapos=uapos+11  ' skip the "user-agent:" text
                    t = Ltrim$( Mid$( robtext, uapos ) )
                    If Left$( t, 1 )="*" Or Left$( t, 7 )="mozilla" Or Left$( t, 5 )="lotus" Then

                              '*
                              '*  This applies to us!!! Better respect the Disallow flags.
                              '* First, chop any further User-Agent pieces so we know what to use.
                              '*

                         Dim t1 As Integer
                         t1 = Instr( t, "user-agent:" )
                         If t1>0 Then
                              tt = Rtrim$( Left$( t, t1-1 ) )
                         Else
                              tt = Rtrim$( t )
                         End If

                              '*
                              '* Now parse tt for *all*  the Disallow: paths - don't check them just yet
                              '*

                         dbegin = 1
                         dapos = 1
                         While dapos>0
                              dapos = Instr( dbegin, tt, "disallow:" )
                              If dapos>0 Then
                                   Dim ban As String
                                   dapos = dapos+10   ' skip the "disallow:" text
                                   dendpos = Instr( dapos, tt, "#" )
                                   If dendpos=0 Then dendpos = Instr( dapos, tt, Chr$(10) )
                                   If dendpos=0 Then dendpos = Len( tt )-1
                                   ban = Trim$( Mid$( tt, dapos, dendpos-dapos ) )
                                   If Len(ban)>0 Then
                                        If Right$(ban, 1)="/" Then ban =Left$(ban, Len(ban)-1)
                                        darray( danum ) = ban
                                        danum = danum+1
                                   End If
                              End If
                              dbegin = dapos
                         Wend

                              '*
                              '*  Done that user-agent list.  We should keep going, in case there are more!
                              '*

                    End If

                         '*
                         '* Find the next User-Agent which might apply to us
                         '*

                    begin = uapos
               End If
          Wend

               '*
               '* Store cleaned-up list of Disallow paths in the SavedData document in the field "banthisserver"
               '*

          If danum>0 Then
               Call datadoc.ReplaceItemValue( currentdomain, darray )
               Call datadoc.Save( True, False )
          Else
               Call datadoc.Replaceitemvalue(currentdomain, "None")
               Call datadoc.Save( True, False )
          End If
     Else
          If ( DebugFlag = "1" ) Then logaction( "Robots.txt page returned an error.  Probably doesn't exist.")
          Call datadoc.Replaceitemvalue(currentdomain, "None")
          Call datadoc.Save( True, False )
     End If


End Sub
[$    K|
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
Using Page Minder: Keeping track of changes to Web pages (Personal Web Navigator)
    You can run a background agent called Page Minder that closely watches a particular Web page and notifies you when the contents of that page change.
    Note
      Page Minder only runs while your Notes workstation is running.
    Enabling the Page Minder agent
    To enable the Page Minder agent (you only need to do this once):
      1.    Choose File - Tools - User Preferences and select "Enable scheduled local agents."
      2.    Open the Personal Web Navigator database and choose Actions - Internet Options.
      3.    Click the Enable Page Minder button next to the agent.
      4.    In the "Choose Server To Run On" dialog box, choose Local and click OK. (This dialog box only appears if you have not yet enabled the agent in this database.)
    Running the Page Minder agent
    To run Page Minder on a Web page:
      1.    Choose Actions - Internet Options.
      2.    In the Page Minder agent preferences section, fill out these fields:
    Search for updates every -- Choose how often you want the agent to check to see if the page contents have changed.  You can choose Hour, 4 Hours, Day, or Week.
    When updates are found -- Specify how you want to be alerted that the page changed.  Choose "Send me a summary" to send a message notifying you that the page has changed.  Choose "Send me the actual page" to send the newly updated Web page.
    Send to -- Specify the name of the person to alert when the page content changes.
      3.    Exit and save your changes.
      4.    Select any Web page and drag it into the Page Minder folder.
    The Page Minder agent runs based on the times you selected in the Internet Options document.
    Note
      You can run the Page Minder agent on pages from authenticated servers where you are required to supply a username and password before you can gain access to the page. Similarly, you can run the agent through an authenticated proxy server where you have to supply a username and password to gain access to the Internet. As long as you have successfully retrieved the page during your current Notes session, Notes stores your username and password in a field on the Web page and pulls it from there when it runs the agent.  For security purposes, if you run this agent on authenticated servers or through authenticated proxy servers, you should encrypt your database so that the field is not visible to others.
Using Web Ahead: Automatically following links on Web pages (Personal Web Navigator)
    Web pages usually contain URLs that point to other Web pages. You can run a background agent called Web Ahead that retrieves all the Web pages specified by the URLs on a particular Web page and saves all the resulting Web pages in your database for you to read later. You can set the agent to retrieve the URLs several levels down from the page you specify.
    Note
      Web Ahead only runs while your Notes workstation is running.
    Enabling the Web Ahead agent
    To enable the Web Ahead agent (you only need to do this once):
      1.    Choose File - Tools - User Preferences and select "Enable scheduled local agents."
      2.    Open the Personal Web Navigator database and choose Actions - Internet Options.
      3.    Click the Enable Web Ahead button next to the agent.
      4.    In the "Choose Server To Run On" dialog box, choose Local and click OK. (This dialog box only appears if you have not yet enabled the agent in this database.)
    Running the Web Ahead agent
    To run Web Ahead on a Web page:
      1.    Choose Actions - Internet Options.
      2.    In the Web Ahead agent preferences section, enter the number of levels of pages you want the agent to retrieve.
      3.    Exit and save your changes.
      4.    Select any Web page and drag it into the Web Ahead folder.
    The Web Ahead agent runs every half hour.
    Note
      You can run the Web Ahead agent on pages from authenticated servers where you are required to supply a username and password before you can gain access to the page. Similarly, you can run the agent through an authenticated proxy server where you have to supply a username and password to gain access to the Internet. As long as you have successfully retrieved the page during your current Notes session, Notes stores your username and password in a field on the Web page and pulls it from there when it runs the agent.  For security purposes, if you run this agent on authenticated servers or through authenticated proxy servers, you should encrypt your database so that the field is not visible to others.
    '++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub RefreshPage
Declare Sub InstantiateObjects
Declare Sub OpenHomeURL
Declare Sub OpenSearchSite (docLocal As NotesDocument)
Declare Sub CreateNotesLink (docLocal As NotesDocument)
Declare Sub CopyDocumentToSharedDatabase (docLocal As NotesDocument, url As String)
Declare Sub CreateRatingDocument (docLocal As NotesDocument, url As String, title As String)
Declare Sub ReduceToLink (docLocal As NotesDocument)
Declare Sub GetProfileDocument
Declare Function LocationOK As Integer
Declare Sub  ImportFavorites
Declare Sub FavoriteExtractAddress(posBegin As Integer)
Declare Sub CreateFavoriteDocument
Declare Sub FavoriteProcessOneLine
Declare Sub ImportBookmarks
Declare Sub NavigatorExtractAddress(posBegin As Integer)
Declare Sub ShrinkFolderName
Declare Sub NavigatorProcessOneLine
Declare Sub GetFolderName(posStart As Integer)
Declare Sub CreateNavigatorDocument
Declare Sub PrintWebDocument
Declare Sub WebNavHelp
Declare Sub IENextdoc(browserobject As Variant)
Declare Sub IEPreviousDoc(browserobject As Variant)
Declare Sub IEStop(browserobject As Variant)
Declare Function GetCurrentLocation As String
Declare Sub IEForwardNote (doc As notesdocument, browserobject As Variant)
Declare Sub IERefreshPage(browserobject As Variant)
Declare Sub IEOpenHome(browserobject As Variant)
Declare Sub IESearch(browserobject As Variant)
Declare Sub CreateIELink(url As String, title As String)
Declare Sub MoveToFolder(Source As NotesUIView,Target As Variant, Continue As Variant)
Declare Sub Initialize
Declare Function GetRegValue (szKey$, szValueName$) As String
Declare Sub SetRegValue(szKey$, szValueName$, szKeyValue)
Declare Function GetLocationItem (itemname As String) As Variant
Declare Sub SetLocationItem(itemname As String, itemvalue As String)
Declare Sub CreateIEBookmark(browserobject As Variant, folder As String)
Declare Sub RemoveObjects(doc As notesdocument)
Declare Sub GetCurrentFolders
Declare Sub ViewDelete
Declare Sub Browse
Declare Sub ViewForward(docLocal As notesdocument)
Declare Function DuplicateBookmark(szURL) As Integer
Declare Sub CheckRegistrySettings
Declare Function CompareValues(IEValue As String, NotesValue As Variant) As String
Declare Function ParseFilename(szPath As String) As String
Declare Sub NotesForwardNote(doc As notesdocument)
Declare Function ParseURL(url As String) As String
'++LotusScript Development Environment:2:5:(Declarations):0:10
'this script library is used by the views and forms for sharing various scripts -> Home, Search, Share, Import Bookmarks, and Reduce
Dim w As NotesUIWorkspace
Dim session As NotesSession
Dim db As NotesDatabase
Dim dbShared As NotesDatabase
Dim docProfile As NotesDocument
Dim note As NotesDocument
Dim bookmark As NotesDocument
Dim bookmarkfolder As NotesView
Dim firstnavigatedone As Integer
Dim view As NotesView
Dim hFile As Integer
Dim numDirectories As Integer
Dim szPath As String
Dim szEntry As String
Dim szURL As String
Dim szTitle As String
Dim szFolder As String
Dim filenamepath As String
Dim filename As String
Dim fileflag As Integer
Dim Directories() As String
%INCLUDE "lsconst.lss"
' This declares the routines used for retrieving key values
' from the registry on a Windows 32 client.
' NOTE: if you are running this app on a platform other than
' Windows 32 Intel, then it will not work.
Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (Byval hKey&, Byval szSubKey$, Byval dwOptions&, Byval SAM&, hKey&) As Long
Declare Function RegCloseKey Lib "advapi32.dll" Alias "RegCloseKey" (Byval hKey&) As Long
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (Byval hKey&, Byval szValue$, Byval dwReserved&, dwType&, Byval szValue$, lpdwBuf&) As Long
Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (Byval hKey&, Byval szValue$, Byval dwReserved&, Byval dwType&, Byval lpData$, Byval cbData&)  As Long
Const HKEY_CURRENT_USER = &H80000001
Const KEY_READ = &H00020019
Const KEY_SET_VALUE = &H0002
Dim RetCode As Long
Dim dwType As Long
Dim hKey As Long
Dim dwSize As Long
Dim lpData As String
Dim cbData As Long
'++LotusScript Development Environment:2:2:RefreshPage:1:8
Sub RefreshPage


     Dim currenturl As String
     Dim currentdoc As notesuidocument
     Dim urldoc As notesdocument
     Dim docCollection As NotesDocumentCollection
     Set docCollection = db.UnprocessedDocuments
     If (docCollection.Count = 0) Then
          Msgbox "You must select a document.",16,"Error"
          Exit Sub
     End If
     Set currentdoc = w.currentdocument
     currenturl=currentdoc.fieldgettext("URL")
     Set urldoc = db.GetDocumentByURL(currenturl, 1)
     w.EditDocument False, urldoc
     w.viewrefresh
End Sub
'++LotusScript Development Environment:2:2:InstantiateObjects:1:8
Sub InstantiateObjects

     Set w = New NotesUIWorkspace
     Set session = New NotesSession
     Set db = session.CurrentDatabase
     Set view = db.GetView("(Internet Profile)")
     Set docProfile = view.GetFirstDocument

End Sub
'++LotusScript Development Environment:2:2:OpenHomeURL:1:8
Sub OpenHomeURL
     On Error 4005 Goto LoadHomeURL

     Dim urldoc As NotesDocument



     If (docProfile Is Nothing) Then GetProfileDocument
     If (docProfile Is Nothing) Then
          Msgbox "You need to specify a home page URL to open. Choose Actions - Internet Options from the menu."
          Exit Sub
     End If
     If (docProfile.openurl(0) <> "") Then
          w.URLOpen docProfile.openurl(0), 2, 0, "", "", "", "", "", True
     Else
          Msgbox "You need to specify a home page URL to open. Choose Actions - Internet Options from the menu."
          Exit Sub
     End If
     Exit Sub
LoadHomeURL:
     w.URLOpen docProfile.openurl(0), 2, 0, "", "", "", "", "", True
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:OpenSearchSite:1:8
Sub OpenSearchSite (docLocal As NotesDocument)


     Dim SearchDoc As notesdocument
     If (docProfile Is Nothing) Then GetProfileDocument
     If (docProfile Is Nothing) Then
          Msgbox "You need to specify a Search Site URL to open. Choose Actions - Internet Options from the menu."
          Exit Sub
     End If
       'we need to determine if the current document exists or has the $Index field

     If (docLocal Is Nothing) Or Not (docLocal.HasItem("$Index")) Then
          w.URLOpen docProfile.SearchURL(0)

     Else
          'open the url specified

          i = docLocal.GetItemValue("$Index")
          pos% = Instr(docLocal.URL(0),"?")
          If (pos% > 0) Then
               url$ = Right$(docLocal.URL(0),Len(docLocal.URL(0)) - pos%) & " ?"
          Else
               url$ = docLocal.URL(0) & "?"
          End If
          index$ = url$ & Inputbox$(i(0),"Search Internet Server")
          If index$<> "" Then
               w.urlopen index$
          End If
     End If
End Sub
'++LotusScript Development Environment:2:2:CreateNotesLink:1:8
Sub CreateNotesLink (docLocal As NotesDocument)

     Dim docMail As NotesDocument
     Dim rtitem As NotesRichTextItem


     Set docMail = New NotesDocument(db)
     Set rtitem = New NotesRichTextItem(docMail,"Body")
     docMail.Form = "Memo"
     Call rtitem.AppendText(docLocal.url(0))
     docMail.Subject = docLocal.Title(0)
     docMail.Send False,docLocal.ForwardTo(0)
End Sub
'++LotusScript Development Environment:2:2:CopyDocumentToSharedDatabase:1:8
Sub CopyDocumentToSharedDatabase (docLocal As NotesDocument, url As String)
     Dim webdoc As notesdocument
     If (docProfile Is Nothing) Then GetProfileDocument
     If (docProfile Is Nothing) Then
          Msgbox "You need to specify a Web Server and Web Database to share pages with. Choose Actions - Internet Options from the menu."
          Exit Sub
     End If
     If  (docProfile.WebDatabase(0) = "") Then
          Msgbox "You need to specify the shared server and database. Choose Actions - Internet Options from the menu."
          Exit Sub
     End If
     Set dbShared = New NotesDatabase(docProfile.WebServer(0),docProfile.WebDatabase(0))
     If Not (dbShared.IsOpen) Then
          Msgbox "Can't open the shared database"
          Exit Sub
     End If
     If docLocal.form(0) = "WebBrowserForm" Then

          Set webdoc = dbshared.getdocumentbyurl(url)
          dbShared.Close
     Else
          Set webdoc = dbshared.getdocumentbyurl(url)
          dbShared.Close
     End If
End Sub
'++LotusScript Development Environment:2:2:CreateRatingDocument:1:8
Sub CreateRatingDocument (docLocal As NotesDocument, url As String, title As String)
     Dim docRating As NotesDocument
     If (docProfile Is Nothing) Then GetProfileDocument
     If (docProfile Is Nothing) Then
          Msgbox "You need to specify a Web Server and Web Database to share pages with. Choose Actions - Internet Options from the menu."
          Exit Sub
     End If
     If  (docProfile.WebDatabase(0) = "") Then
          Msgbox "You need to specify the shared server and database. Choose Actions - Internet Options from the menu."
          Exit Sub
     End If
     Set dbShared = New NotesDatabase(docProfile.WebServer(0),docProfile.WebDatabase(0))
     If Not (dbShared.IsOpen) Then
          Msgbox "Can't open the shared database"
          Exit Sub
     End If
     'create the remote document and add some fields to it
     Set docRating = New NotesDocument(dbShared)
     docRating.Form = "Person Rating Form"
     docRating.Rating = docLocal.Rating
     docRating.Content = docLocal.Content
     docRating.Comments = docLocal.Comments
     docRating.Author = session.UserName
     docRating.URL = URL
     docRating.Title = Title
     docRating.Save True, True
     dbShared.Close
End Sub
'++LotusScript Development Environment:2:2:ReduceToLink:1:8
Sub ReduceToLink (docLocal As NotesDocument)

     If docLocal.hasitem("Body") Then
          docLocal.RemoveItem "Body"
          docLocal.RemoveItem "HTMLSource"
          docLocal.RemoveItem "HTMLBody"
          docLocal.RemoveItem "$Background"
          docLocal.RemoveItem "$FILE"
          docLocal.RemoveItem "$OLEOBJINFO"
          docLocal.RemoveItem "URLLinks1"
          docLocal.RemoveItem "WebAheadStatus"
          docLocal.RemoveItem "WebAgentError"
          docLocal.RemoveItem "PageMinderStatus"
          docLocal.bookmark = "1"
          docLocal.Save True,True
     Else
          docLocal.RemoveItem "$Body"
          docLocal.RemoveItem "HTMLSource"
          docLocal.RemoveItem "$Background"
          docLocal.RemoveItem "$FILE"
          docLocal.RemoveItem "$OLEOBJINFO"
          docLocal.RemoveItem "URLLinks1"
          docLocal.RemoveItem "WebAheadStatus"
          docLocal.RemoveItem "WebAgentError"
          docLocal.RemoveItem "PageMinderStatus"
          docLocal.Bookmark = "1"
          docLocal.Save True,True
     End If
End Sub
'++LotusScript Development Environment:2:2:GetProfileDocument:1:8
Sub GetProfileDocument
     Dim view As NotesView
     Set view = db.GetView("Internet Profiles")
     Set docProfile = view.GetFirstDocument
End Sub
'++LotusScript Development Environment:2:1:LocationOK:1:8
Function LocationOK As Integer

     '*
     '*  This function verifies that the current location settings are correct for local web retrievals.
     '*

     LocationOK = True
     Dim currentbrowser As String
     Dim MailServer As String
     currentbrowser = GetLocationItem("WebRetriever")
     If CurrentBrowser <> "3" Or CurrentBrowser <> "1" Then
          Msgbox "Your Browser setting for Notes is not set to retrieve in Notes.  Edit your current location to change the browser setting to Notes.", 16, "Error"
          LocationOK = False
          Exit Function
     End If
     MailServer = GetLocationItem("MailServer")
     If MailServer = "" Then
          Msgbox "You do not have a mail file/server specified.  Use File Mobile Edit Current Location... to set them.", 16, "Error"
          LocationOK = False
          Exit Function
     End If

End Function
'++LotusScript Development Environment:2:2:ImportFavorites:1:8
Sub  ImportFavorites
     InstantiateObjects
     Set note = New NotesDocument(db)
     szFolder = "Favorites"
     numDirectories = 0
     Redim Directories(20)
     fileflag = False

     If(w.DialogBox("(ImportFavorite)",True,True,False,,,,"Import Favorites",note)) Then
          'get the file to open
          szPath = note.BookMarkFile(0)
          If (szPath = "") Then
               Exit Sub
          Elseif (Right$(szPath,3) = "url" ) Then
               'file is specified not path parse out filename and go directly to process file
               filenamepath = szPath
               fileflag = True
               Goto ProcessFile
          Elseif (Right$(szPath,1) <> "\") Then
               szPath  = szPath & "\"
          End If
          filename = Dir$(szPath ,ATTR_DIRECTORY)

          While (filename <>"")
               If (filename <> ".") And (filename <> "..") Then
                    filenamepath = szPath & filename
                    retType = Getfileattr(filenamepath)
                    If Not(retType = ATTR_DIRECTORY) Then
ProcessFile:
                         hFile = Freefile

'open the file
                         Open filenamepath For Input As hFile

'read in a line from the file
                         Do Until Eof(hFile)
                              Line Input #hFile,szEntry
                              Call FavoriteProcessOneLine
                         Loop
                    Else
'this is a directory
                         Directories(counter) = filename
                         counter = counter + 1
                    End If
               End If
               If fileflag Then Exit Sub
               filename = Dir()
          Wend
     End If
'scan subdirectories if need be
     If (counter > 0) Then
          For x = 0 To (counter-1)
               szFolder = "Bookmarks\" & Directories(x)
               szSubPath = szPath & Directories(x) & "\"
               filename = Dir$(szSubPath,ATTR_DIRECTORY)
               While (filename <>"")
                    If (filename <> ".") And (filename <> "..") Then
                         retType = Getfileattr(szSubPath & filename)
                         If Not(retType = ATTR_DIRECTORY) Then
                              hFile = Freefile
'open the file
                              Open szSubPath  & filename For Input As hFile

'read in a line from the file
                              Do Until Eof(hFile)
                                   Line Input #hFile,szEntry
                                   Call FavoriteProcessOneLine
                              Loop
                         End If
                    End If
                    filename = Dir()
               Wend
          Next

     End If
End Sub
'++LotusScript Development Environment:2:2:FavoriteExtractAddress:1:8
Sub FavoriteExtractAddress(posBegin As Integer)

'get the position of the closing quote
     szURL = Right$(szEntry,Len(szEntry) - posBegin+1)
End Sub
'++LotusScript Development Environment:2:2:CreateFavoriteDocument:1:8
Sub CreateFavoriteDocument

     'Before we create the bookmark document we need to make sure that one does not already exist
     If Not DuplicateBookmark(szURL) Then
          Dim nulldoc As notesdocument
          Dim title As String
          Set bookmark = New NotesDocument(db)
          If fileflag Then
               title = Parsefilename(szPath)
               bookmark.title = Left$(title, Len(title)-4)
          Else
               bookmark.title = Left$(filename, Len(filename)-4)
          End If

          bookmark.URL =  szURL
          bookmark.bookmark = "1"
          bookmark.form = "HTMLForm"
          Call bookmark.Save(True,False)
          Call bookmark.PutInFolder(szFolder)
          If docprofile.keeppage(0) = "0" Then
               If GetLocationItem("WebLocation")(0) = "1" Then

                    Set nulldoc = db.getdocumentbyurl(szURL, 0,0,"","","","","",True)
               End If
          End If
     End If

End Sub
'++LotusScript Development Environment:2:2:FavoriteProcessOneLine:1:8
Sub FavoriteProcessOneLine
'we have just read one line from the bookmark file
'see if this line has one of two entries in it
     Dim pos As Integer

'look for an http reference
     pos = Instr(1,szEntry,"=",5)
     If (pos > 0) Then
          FavoriteExtractAddress(pos+1)
          If (szURL <> "") Then Call CreateFavoriteDocument
          Exit Sub
     End If
End Sub
'++LotusScript Development Environment:2:2:ImportBookmarks:1:8
Sub ImportBookmarks
     InstantiateObjects
     Set note = New NotesDocument(db)
     szFolder = "Favorites and Bookmarks"

     If(w.DialogBox("(ImportBookmark)",True,True,False,,,,"Import Bookmark",note)) Then
          'get the file to open
          szPath = note.BookMarkFile(0)
          If (szPath = "") Then Exit Sub
          hFile = Freefile

'open the file
          Open szPath For Input As hFile

'read in a line from the file
          Do Until Eof(hFile)
               Line Input #hFile,szEntry
               Call NavigatorProcessOneLine
          Loop
     End If

'we need to close the file
     Close hFile
End Sub
'++LotusScript Development Environment:2:2:NavigatorExtractAddress:1:8
Sub NavigatorExtractAddress(posBegin As Integer)
     Dim posEnd As Integer
     Dim posTITLEBegin As Integer
     Dim posTITLEEnd As Integer

'get the position of the closing quote
     posEnd = Instr(posBegin,szEntry,|"|,5)
     If posEnd = 0 Then
          szURL = ""
          Exit Sub
     End If
     szURL = Mid$(szEntry,posBegin,(posEnd-posBegin))
'now, we need to get the title
     posTITLEBegin = Instr(posEnd,szEntry,">",5)
     If (posTITLEBegin = 0) Then
          szTitle = ""
     Else
          posTITLEEnd = Instr(posTITLEBegin,szEntry,"</a",5)
          szTitle = Mid$(szEntry,posTITLEBegin+1,(posTITLEEnd-posTITLEBegin)-1)
     End If
End Sub
'++LotusScript Development Environment:2:2:ShrinkFolderName:1:8
Sub ShrinkFolderName
     Dim posCurrent As Integer
     Dim posHold As Integer

'posCurrent is the new position of the "\" character
'posHold keeps the most recent position of the "\" character

     posCurrent = Instr(1,szFolder,"\",5)
     While(posCurrent > 0)
          posHold = posCurrent
          posCurrent = Instr(posHold+1,szFolder,"\",5)
     Wend
     If (posHold > 0) Then szFolder = Left$(szFolder,posHold-1)
End Sub
'++LotusScript Development Environment:2:2:NavigatorProcessOneLine:1:8
Sub NavigatorProcessOneLine
'we have just read one line from the bookmark file
'see if this line has one of two entries in it
     Dim pos As Integer

'first, look for the beginning of a folder
     pos = Instr(1,szEntry,"h3",5)
     If (pos > 0) Then
          GetFolderName(pos)
          Exit Sub
     End If
'we didn't find a folder, so look for an http reference
     pos = Instr(1,szEntry,"http",5)
     If (pos > 0) Then
          NavigatorExtractAddress(pos)
          If (szURL <> "") Then Call CreateNavigatorDocument
          Exit Sub
     End If
'check for an ftp reference
     pos = Instr(1,szEntry,"ftp",5)
     If (pos > 0) Then
          NavigatorExtractAddress(pos)
          If(szURL <> "") Then Call CreateNavigatorDocument
          Exit Sub
     End If
'this isn't a folder, nor is it an http ref; look for the closing of a folder
     pos = Instr(1,szEntry,"</DL>",5)
     If (pos > 0) Then Call ShrinkFolderName
End Sub
'++LotusScript Development Environment:2:2:GetFolderName:1:8
Sub GetFolderName(posStart As Integer)
'gets the name of the folder
     Dim posFolderBegin
     Dim posFolderEnd

     posFolderBegin = Instr(posStart,szEntry,|">|,5)
     If (posFolderBegin > 0) Then
          posFolderEnd = Instr(posFolderBegin,szEntry,"<",5)
          szFolder = szFolder & "\" & Mid$(szEntry,posFolderBegin+2,posFolderEnd - posFolderBegin-2)
     End If
End Sub
'++LotusScript Development Environment:2:2:CreateNavigatorDocument:1:8
Sub CreateNavigatorDocument
     'Before we create the bookmark document, make sure that it doesn't already exist
     If Not DuplicateBookmark(szURL) Then
          Dim nulldoc As notesdocument
          Set bookmark = New NotesDocument(db)
          bookmark.URL =  szURL
          bookmark.Title = szTitle
          bookmark.Subject = szTitle
          bookmark.bookmark = "1"
          bookmark.form = "HTMLForm"
          Call bookmark.Save(True,False)
          Call bookmark.PutInFolder(szFolder)
            'If keep page option is manual or retrievals are set to no retrievals, don't do the nonblocking retrieval
          If docprofile.keeppage(0) = "0" Then
               If GetLocationItem("WebLocation")(0) = "1" Then

                    Set nulldoc = db.getdocumentbyurl(szURL, 0,0,"","","","","",True)
               End If
          End If
     End If
End Sub
'++LotusScript Development Environment:2:2:PrintWebDocument:1:8
Sub PrintWebDocument

     On Error Goto ErrorRoutine

     Dim docLocal As NotesDocument
     Dim uidoc As notesuidocument
     Dim docCollection As NotesDocumentCollection
     Set docCollection = db.UnprocessedDocuments
     If (docCollection.Count = 0) Then
          Msgbox "You must select a document.",16,"Error"
          Exit Sub
     Else
          For j = 1 To docCollection.Count
               Set docLocal = docCollection.getnthdocument(j)
               Set uidoc = w.editdocument(False, docLocal)
               Call uidoc.print
               Call uidoc.close
          Next
     End If
     Exit Sub
ErrorRoutine:
     Messagebox Error & " (PrintWebDocument)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:WebNavHelp:1:8
Sub WebNavHelp
     On Error Goto ErrorRoutine

     Dim PrivateAddressBook As notesdatabase
     Dim CurrentLocation As notesdocument
     Dim LocationString As String
     Dim helpdb As New notesdatabase("", "")
     Dim workspace As New NotesUIWorkspace
     Dim Session As New notessession

     Set PrivateAddressBook = New Notesdatabase("", "names.nsf")
     LocationString = Session.GetEnvironmentString ( "Location", True)

     If (PrivateAddressBook Is Nothing) Then
          If Helpdb.open("", "help4.nsf") Then
               Call workspace.OpenDatabase ( "", "help4.nsf", "Web")
          Elseif Helpdb.open("", "helplt4.nsf") Then
               Call workspace.OpenDatabase ( "", "helplt4.nsf", "Web")
          Else
               Msgbox "Unable to locate the Notes Help Database", 16, "Error"
          End If
          Exit Sub
     End If


     If LocationString <> "" Then
          Temp$ = Mid( LocationString, (Instr(1, LocationString, ",")+1))
          LocationID$ = Left(Temp$, (Instr(1,Temp$, ",")-1))
          Set CurrentLocation = PrivateAddressBook.getdocumentbyid(LocationID$)

          If Not (CurrentLocation Is Nothing) Then
               If CurrentLocation.MailServer(0) <> "" Then
                    If Helpdb.open("", "help4.nsf") Then
                         Call workspace.OpenDatabase ( "", "help4.nsf", "Web")
                    Elseif Helpdb.open("", "helplt4.nsf") Then
                         Call workspace.OpenDatabase ( "", "helplt4.nsf", "Web")
                    Elseif Helpdb.open(CurrentLocation.MailServer(0), "help4.nsf") Then
                         Call workspace.OpenDatabase ( CurrentLocation.MailServer(0), "help4.nsf", "Web")
                    Elseif Helpdb.open(CurrentLocation.MailServer(0), "helplt4.nsf") Then
                         Call workspace.OpenDatabase ( CurrentLocation.MailServer(0), "helplt4.nsf", "Web")
                    Else
                         Msgbox "Unable to locate the Notes Help Database", 16, "Error"
                    End If
               Else
                    If Helpdb.open("", "help4.nsf") Then
                         Call workspace.OpenDatabase ( "", "help4.nsf", "Web")
                    Elseif Helpdb.open("", "helplt4.nsf") Then
                         Call workspace.OpenDatabase ( "", "helplt4.nsf", "Web")
                    Else
                         'Mail server is blank
                         Msgbox "Unable to locate the Notes Help Database", 16, "Error"
                    End If
               End If
          Else
               If Helpdb.open("", "help4.nsf") Then
                    Call workspace.OpenDatabase ( "", "help4.nsf", "Web")
               Elseif Helpdb.open("", "helplt4.nsf") Then
                    Call workspace.OpenDatabase ( "", "helplt4.nsf", "Web")
               Else
                    'Location document is not found
                    Msgbox "Unable to locate the Notes Help Database", 16, "Error"
               End If
          End If
     Else
          If Helpdb.open("", "help4.nsf") Then
               Call workspace.OpenDatabase ( "", "help4.nsf", "Web")
          Elseif Helpdb.open("", "helplt4.nsf") Then
               Call workspace.OpenDatabase ( "", "helplt4.nsf", "Web")
          Else
               'Location string in notes.ini is blank
               Msgbox "Unable to locate the Notes Help Database", 16, "Error"
          End If
     End If
     Exit Sub
ErrorRoutine:
     Messagebox Error & " (WebNavHelp)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:IENextdoc:1:8
Sub IENextdoc(browserobject As Variant)
     On Error Goto ErrorRoutine
     browserobject.GoForward
     Exit Sub
ErrorRoutine:
     Messagebox "No next entry in history list.", 16, "Internet Explorer"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:IEPreviousDoc:1:8
Sub IEPreviousDoc(browserobject As Variant)
     On Error Goto ErrorRoutine
     browserobject.GoBack
     Exit Sub
ErrorRoutine:
     Messagebox "No previous entry in history list.", 16, "Internet Explorer"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:IEStop:1:8
Sub IEStop(browserobject As Variant)
     On Error Goto ErrorRoutine
     browserobject.Stop
     Exit Sub
ErrorRoutine:
     Messagebox Error & " (IEStop)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:1:GetCurrentLocation:1:8
Function GetCurrentLocation As String
     On Error Goto ErrorRoutine

     Dim AddBooks As Variant
     Dim PrivateAddressBook As notesdatabase
     Dim CurrentLocation As notesdocument
     Dim LocationString As String

     Dim result As Variant

     AddBooks = Session. AddressBooks
     Forall j In AddBooks
          If (j.IsPrivateAddressBook) Then
               If  j.open("","") Then
                    LocationString = Session.GetEnvironmentString ( "Location", True)
                    If LocationString <> "" Then
                         Temp$ = Mid( LocationString, (Instr(1, LocationString, ",")+1))
                         LocationID$ = Left(Temp$, (Instr(1,Temp$, ",")-1))
                         Set CurrentLocation = j.getdocumentbyid(LocationID$)
                         GetCurrentLocation = CurrentLocation.WebRetriever(0)
                         Exit Forall
                    Else
                         Print "Couldn't find Current Location document."
                         Exit Function
                    End If
               End If
          End If
     End Forall

     Exit Function
ErrorRoutine:
     Messagebox Error & " (GetCurrentLocation)"
     Exit Function
End Function
'++LotusScript Development Environment:2:2:IEForwardNote:1:8
Sub IEForwardNote (doc As notesdocument, browserobject As Variant)

     On Error Goto ErrorRoutine
     On Error 4412 Goto nomailfile

     If (w.dialogbox ("Forward", True, True, False, False, False, False, " Forward Options")) Then
          Select Case doc.ForwardOptions(0)
          Case "1" : 'user wants to forward the URL only
               Call CreateIELink(browserobject.locationurl, browserobject.locationname)
          Case "2" : 'user wants to send entire page
               Dim url As Variant
               Dim webdoc As notesdocument
               Dim uid As notesuidocument
               Dim uid2 As notesuidocument
               Dim uid3 As notesuidocument
               Print "Creating mail memo..."
               url = browserobject.locationurl
               Set webdoc = db.getdocumentbyurl(url)
               webdoc.forward="1"
               webdoc.save True, False
               w.viewrefresh
               w.viewrefresh
               Set uid = w.editdocument(False, webdoc)
               Set uid2=w.currentdocument
               uid2.forward
               Set uid3 = w.currentdocument
               uid.close
               webdoc.removeitem "Forward"
               webdoc.save True, False
          End Select
          'remove any remaining fields that don't need to be carried around
          doc.RemoveItem "ForwardOptions"
          doc.save True, False
     End If
     Exit Sub

ErrorRoutine:
     Messagebox  Err & Error & " (IEForwardNote)"
     Exit Sub

NoMailFile:
     uid.close
     Exit Sub

End Sub
'++LotusScript Development Environment:2:2:IERefreshPage:1:8
Sub IERefreshPage(browserobject As Variant)
     On Error Goto ErrorRoutine
     browserobject.Refresh
     Exit Sub
ErrorRoutine:
     Messagebox Error & " (IERefreshPage)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:IEOpenHome:1:8
Sub IEOpenHome(browserobject As Variant)
     On Error Goto ErrorRoutine
     browserobject.GoHome
     Exit Sub
ErrorRoutine:
     Messagebox Error & " (IEOpenHome)"
     Exit Sub

End Sub
'++LotusScript Development Environment:2:2:IESearch:1:8
Sub IESearch(browserobject As Variant)
     On Error Goto ErrorRoutine
     browserobject.GoSearch
     Exit Sub
ErrorRoutine:
     Messagebox Error & " (IESearch)"
     Exit Sub

End Sub
'++LotusScript Development Environment:2:2:CreateIELink:1:8
Sub CreateIELink(url As String, title As String)

     On Error Goto ErrorRoutine

     Dim uimaildoc As notesuidocument
     Dim docMail As NotesDocument
     Dim maildb As New notesdatabase("", "")
     Call maildb.openmail
     If maildb.isopen Then
          Call w.composedocument(maildb.server, maildb.filepath, "memo")
          Set uimaildoc = w.currentdocument
          Set docmail = uimaildoc.document
          Call uimaildoc.fieldsettext("Body", URL)
          Call uimaildoc.fieldsettext("Subject",   Title)
          Exit Sub
     Else
          Messagebox "Unable to open the mail file that is specified in your current location."
          Exit Sub
     End If

ErrorRoutine:
     Messagebox Err & Error & " (CreateIELink)"
     Exit Sub


End Sub
'++LotusScript Development Environment:2:2:MoveToFolder:1:8
Sub MoveToFolder(Source As NotesUIView,Target As Variant, Continue As Variant)
     Dim note As notesdocument
     Dim doc As notesdocument
     Dim db As notesdatabase
     Dim s As New notessession

     On Error Goto ErrorRoutine

     If target = "Web Bots\Page Minder" Or Target = "Web Bots\Web Ahead" Or (Instr(1, target, "Favorites") =1) Then
          Set db = s.currentdatabase
          For j = 1 To Source.Documents.Count
               Set doc = source.documents.getnthdocument(j)
               If doc.form(0) = "WebBrowserForm" Then
                    Set note = db.getdocumentbyurl(doc.url(0))

                    Call note.putinfolder(target)
                    Continue = False
                    Print "Moved to " + Cstr(target)
               End If
          Next
     End If
     Exit Sub

ErrorRoutine:
     Messagebox Error & " (MoveToFolder)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

End Sub
'++LotusScript Development Environment:2:1:GetRegValue:1:8
Function GetRegValue (szKey$, szValueName$) As String
     Dim szValue As String*200

     hKey = 0
     RetCode = RegOpenKeyEx (HKEY_CURRENT_USER, szKey, 0, KEY_READ, hKey)
     If RetCode <> 0 Then
'          Print "RegOpenKeyEx: " & RetCode
          Exit Function
     End If
     dwType = 0
     dwSize = 200
     RetCode = RegQueryValueEx (hKey, szValueName, 0, dwType, szValue, dwSize)
     If RetCode <> 0 Then
'          Print "RegQueryValueEx: " & RetCode
          Exit Function
     End If
     Call RegCloseKey (hKey)

     GetRegValue = szValue
Done:
End Function
'++LotusScript Development Environment:2:2:SetRegValue:1:8
Sub SetRegValue(szKey$, szValueName$, szKeyValue)

     hKey = 0
     Dim szValue As String*200

     hKey = 0
     RetCode = RegOpenKeyEx (HKEY_CURRENT_USER, szKey, 0, KEY_SET_VALUE, hKey)
     If RetCode <> 0 Then
          Print "RegOpenKeyEx: " & RetCode
          Exit Sub
     End If

     dwSize = 200
     lpData = szKeyValue
     cbData = Len(szKeyValue)
     RetCode = RegSetValueEx (hKey, szValueName, 0, 1, lpData$, cbData)
     If RetCode <> 0 Then
          Print "RegLSetValueEx: " & RetCode
          Exit Sub
     End If


     Call RegCloseKey (hKey)

End Sub
'++LotusScript Development Environment:2:1:GetLocationItem:1:8
Function GetLocationItem (itemname As String) As Variant

     '*
     '*  This function returns a data item from the current location note
     '*

     InstantiateObjects
     GetLocationItem = ""
     Dim PrivateAddressBook As notesdatabase
     Dim CurrentLocation As notesdocument
     Dim LocationString As String


     Set PrivateAddressBook = New Notesdatabase("", "names.nsf")

     If (PrivateAddressBook Is Nothing) Then
          Print "Warning:  Cannot open private address book."
          Exit Function
     End If

     LocationString = Session.GetEnvironmentString ( "Location", True)

     If LocationString <> "" Then
          Temp$ = Mid( LocationString, (Instr(1, LocationString, ",")+1))
          LocationID$ = Left(Temp$, (Instr(1,Temp$, ",")-1))
          Set CurrentLocation = PrivateAddressBook.getdocumentbyid(LocationID$)
          If Not (CurrentLocation Is Nothing) Then
               GetLocationItem = CurrentLocation.getitemvalue(itemname)
          Else
               Print  "Warning:  Unable to verify current location settings.  Can't find location document."
               Exit Function
          End If
     Else
          Print "Warning:  Unable to verify current location settings.  Location string is empty."
          Exit Function
     End If
End Function
'++LotusScript Development Environment:2:2:SetLocationItem:1:8
Sub SetLocationItem(itemname As String, itemvalue As String)
     '*
     '*  This routine sets a data item in the current location note
     '*
     InstantiateObjects
     Dim PrivateAddressBook As notesdatabase
     Dim CurrentLocation As notesdocument
     Dim LocationString As String


     Set PrivateAddressBook = New Notesdatabase("", "names.nsf")

     If (PrivateAddressBook Is Nothing) Then
          Print "Warning:  Cannot open private address book."
          Exit Sub
     End If

     LocationString = Session.GetEnvironmentString ( "Location", True)

     If LocationString <> "" Then
          Temp$ = Mid( LocationString, (Instr(1, LocationString, ",")+1))
          LocationID$ = Left(Temp$, (Instr(1,Temp$, ",")-1))
          Set CurrentLocation = PrivateAddressBook.getdocumentbyid(LocationID$)
          If Not (CurrentLocation Is Nothing) Then
               Call CurrentLocation.Replaceitemvalue(itemname, itemvalue)
               Call CurrentLocation.Save(True, False)
          Else
               Print  "Warning:  Unable to verify current location settings.  Can't find location document."
               Exit Sub
          End If
     Else
          Print "Warning:  Unable to verify current location settings.  Location string is empty."
          Exit Sub
     End If
End Sub
'++LotusScript Development Environment:2:2:CreateIEBookmark:1:8
Sub CreateIEBookmark(browserobject As Variant, folder As String)
     Set bookmark = New NotesDocument(db)
     bookmark.URL =  browserobject.LocationURL
     bookmark.Form = "bookmark"
     bookmark.Title = browserobject.Locationname
     bookmark.Subject = browserobject.Locationname
     bookmark.Imported = True
     bookmark.bookmark = "1"
     Call bookmark.Save(True,False)
     Call bookmark.PutInFolder(folder)

End Sub
'++LotusScript Development Environment:2:2:RemoveObjects:1:8
Sub RemoveObjects(doc As notesdocument)
     Dim imagepage As notesdocument
     If doc.hasitem("$ImageList") Then
          Dim images As Variant
          images  = doc.getitemvalue("$ImageList")
          Forall j In images
               If j <> "" Then
                    Set imagepage = db.getdocumentbyurl(j)
                    imagepage.remove True
               End If
          End Forall
     End If
End Sub
'++LotusScript Development Environment:2:2:GetCurrentFolders:1:8
Sub GetCurrentFolders
     Dim allviews As Variant
     Dim allfolders() As String
     Dim x As Integer
     allviews=db.views
     Forall j In allviews
          If j.isfolder Then
               If Not (Instr(1,j.name, "Web Bots") = 1)  Then
                    Redim Preserve allfolders(x)
                    If (Instr(1, j.name, "\") <>0) Then
                         allfolders(x) = "   " & Right(j.name, Len(j.name)-(Instr(1,j.name, "\")+1))
                         x = x+1
                    Else
                         allfolders(x) = j.name
                         x = x+1
                    End If
               End If
          End If
     End Forall
     docprofile.folders = allfolders
     docprofile.save True, False
End Sub
'++LotusScript Development Environment:2:2:ViewDelete:1:8
Sub ViewDelete
     On Error Resume Next
     Dim doc As notesdocument
     Dim noteid As String
     noteid = ""
     Dim docCollection As NotesDocumentCollection
     Set docCollection = db.UnprocessedDocuments
     If (docCollection.Count = 0) Then
          Msgbox "You must select a document.",16,"Error"
          Exit Sub
     End If
     Response = Msgbox ("This will permanently delete the selected page(s) from the database.  Do you want to continue?", 20, "Delete Document")
     If Response = 6 Then
          For j = 1 To docCollection.count
               Set doc = docCollection.getnthdocument(j)
               If Instr(doc.HTTPContent_Type(0), "image") = 0 Then
                    Call RemoveObjects(doc)
               End If

               If doc.isuidocopen Then
                    noteid = doc.noteid
                    Delete doc
                    Set doc = db.getdocumentbyid (noteid)
                    doc.remove True
                    w.viewrefresh
                    w.viewrefresh
               Else
                    doc.Remove True
                    w.viewrefresh
               End If
          Next
     End If

End Sub
'++LotusScript Development Environment:2:2:Browse:1:8
Sub Browse
     Dim currbrowser As String
     Dim browserobjectcollection As notesdocumentcollection
     Dim browserdoc As notesdocument
     Dim iedoc As New notesdocument(db)
     Dim dt As New notesdatetime ("1/1/90")
     InstantiateObjects
     currbrowser = GetCurrentLocation
     If currbrowser = "0" Then
          OpenHomeURL
     Elseif currbrowser = "3" Then
          If docprofile.openurl(0) = "" Then
               Msgbox "You need to specify a home page URL to open. Choose Actions - Internet Options from the menu."
               Exit Sub
          End If

          Set BrowserObjectCollection = db.search(("Form = ""WebBrowserForm""& home = ""1"""), dt, 0)

          If BrowserObjectCollection.count <> 0 Then
               Set BrowserDoc = BrowserObjectCollection.getfirstdocument
               Call BrowserDoc.replaceitemvalue("url", docprofile.openurl(0))
               Call BrowserDoc.save(True, False)
               Call w.editdocument(False, browserdoc)
          Else
               Call iedoc.replaceitemvalue("Form", "WebBrowserForm")
               Call iedoc.replaceitemvalue("home", "1")
               Call iedoc.replaceitemvalue("SaveOptions", "1")
               Call ieDoc.replaceitemvalue("url", docprofile.openurl(0))
               Call ieDoc.save(True,False)
               Call w.viewrefresh
               Call w.editdocument(False, iedoc)
          End If
     End If
End Sub
'++LotusScript Development Environment:2:2:ViewForward:1:8
Sub ViewForward(docLocal As notesdocument)
     On Error Goto ErrorRoutine

     Dim url As Variant
     Dim webdoc As notesdocument
     Dim uid As notesuidocument
     Dim uid2 As notesuidocument
     Dim uid3 As notesuidocument

     url = docLocal.url
     Set webdoc = db.getdocumentbyurl(url(0))

     webdoc.forward="1"
     webdoc.save True, False
     Print "Webdoc is saved"
     w.viewrefresh
     w.viewrefresh
     Set uid = w.editdocument(False, webdoc)
     Set uid2=w.currentdocument
     uid2.forward
     Set uid3 = w.currentdocument
     uid.close
     webdoc.removeitem "Forward"
     webdoc.save True, False
     Exit Sub

ErrorRoutine:
     Messagebox Error & " (ViewForward)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:1:DuplicateBookmark:1:8
Function DuplicateBookmark(szURL) As Integer
     Dim bookmarkcollection As notesdocumentcollection
     Dim currentbookmark As notesdocument
     Dim dt As New NotesDateTime("1/1/90")
     DuplicateBookmark = False
     Set bookmarkcollection = db.search("bookmark=""1""",dt, 0)
     If bookmarkcollection.count <>0 Then
          For j = 1 To bookmarkcollection.count
               Set currentbookmark = bookmarkcollection.getnthdocument(j)
               If currentbookmark.url(0) = szURL Then
                    DuplicateBookmark = True
                    Exit For
               End If
          Next
     End If
End Function
'++LotusScript Development Environment:2:2:CheckRegistrySettings:1:8
Sub CheckRegistrySettings
     'sync Internet Options form
     Dim lpSubKey1 As String
     Dim IESearchURL As String
     Dim IEHomePageURL As String
     Dim NotesSearchURL As Variant
     Dim NotesHomePage As Variant
     Dim CompareResult As String

     If docProfile Is Nothing Then GetProfiledocument

     'Obtain values from the registry
     lpSubKey1 ="SOFTWARE\Microsoft\Internet Explorer\Main"
     IESearchURL =  GetRegValue(lpsubkey1, "Search Page" )
     IEHomePageURL = GetRegValue(lpsubkey1, "Start Page")

     'Obtain Notes values
     NotesSearchURL = docprofile.SearchURL
     NotesHomePage = docprofile.OpenURL

     'Compare Search URL values

     CompareResult = CompareValues(IESearchURL, NotesSearchURL(0))

     Select Case CompareResult
     Case "SetRegistry"
          'Put the Notes Value in the W32 Registry
          Call SetRegValue(lpSubKey1, "Search Page", NotesSearchURL(0))
     Case "SetNotes"
          'Put the W32 Registry value in Notes
          docprofile.SearchURL = IESearchURL
          Call docprofile.save(True, False)

     End Select

     'Compare Home Page Values only if load home page on open is selected.

     CompareResult = CompareValues(IEHomePageURL, NotesHomePage(0))

     Select Case CompareResult
     Case "SetRegistry"
          'Put the Notes Value in the W32 Registry
          Call SetRegValue(lpSubKey1, "Start Page", NotesHomePage(0))
     Case "SetNotes"
          docprofile.OpenUrl = IEHomePageURL
          Call docprofile.save(True, False)
     End Select


End Sub
'++LotusScript Development Environment:2:1:CompareValues:1:8
Function CompareValues(IEValue As String, NotesValue As Variant) As String
     If IEValue = NotesValue Then
          'The values are the same, don't do anything
          ComapreValues = "0"
          Exit Function
     Elseif IEValue ="" And NotesValue <> "" Then
          CompareValues = "SetRegistry"
          Exit Function
     Elseif IEValue <>"" And NotesValue = "" Then
          CompareValues = "SetNotes"
          Exit Function
     Elseif IEValue <> "" And NotesValue <> "" Then
          CompareValues = "DoNothing"
          Exit Function
     End If
End Function
'++LotusScript Development Environment:2:1:ParseFilename:1:8
Function ParseFilename(szPath As String) As String
     'This routine pulls the filename out of a path filename combination string.
     'This is a W32 and OS2 only function

     Dim strlength As Integer
     Dim currpos As Integer
     strlength = Len(szPath)
     'Extract to first \
     currpos = Instr(1, szPath, "\")
     While currpos <> 0
          'keep extracting \ until we can't find anymore
          oldpos = currpos
          currpos = Instr(currpos+1, szPath, "\")
     Wend
     parsefilename = Right$(szPath, (strlength - oldpos))
End Function
'++LotusScript Development Environment:2:2:NotesForwardNote:1:8
Sub NotesForwardNote(doc As notesdocument)
     On Error Goto ErrorRoutine
     On Error 4412 Goto nomailfile

     If (w.dialogbox ("Forward", True, True, False, False, False, False, " Forward Options")) Then
          Select Case doc.ForwardOptions(0)
          Case "1" : 'user wants to forward the URL only
               Call CreateIELink(doc.url(0), doc.title(0))
          Case "2" : 'user wants to send entire page
               Dim uid As notesuidocument
               Dim uid2 As notesuidocument
               Dim uid3 As notesuidocument
               Print "Creating mail memo..."
               w.viewrefresh
               w.viewrefresh
               Set uid = w.editdocument(False, doc)
               Set uid2=w.currentdocument
               uid2.forward
               Set uid3 = w.currentdocument
               uid.close

          End Select
          'remove any remaining fields that don't need to be carried around
          doc.RemoveItem "ForwardOptions"
          doc.save True, False
     End If
     Exit Sub

ErrorRoutine:
     Messagebox Error & " (NotesForwardNote)"
     Exit Sub

NoMailFile:
     uid.close
     Exit Sub

End Sub
'++LotusScript Development Environment:2:1:ParseURL:1:8
Function ParseURL(url As String) As String
     'This routine returns the type of URL that is being evaluated
     'first pull out the protocol

     ParseURL = Left$(url, Len(url) - Instr(url, "://"))
End Function
<5dDdDdDD8D8
Cx8x8
5x5x5
@9p9@9@9p9p9
\:\:D
t=T=T=d=d=
D=D=@
>l>l>
>(>(>
h?X?X?
\A\A<A<A
C|C|C
 F FPFPF`F`F0F0F
0G0G@GPG
`G`GpGpG
= 8 8
L%|%<
((((d
H(h)x
H)H)<
(*(*4
H+H,(
h+(-@
`1`14
,?L-4
PGPG<:
2-$3#
^@2K,#-H3#
1K@2,l3}
[,#+l"$
#+<#$
#-<4#
$,`4}
4K,$S
4K,$S
4K,$Sl5
K,$Sx7
K,$Sx7
K,$Sx7
K,$Sx7
#- 8#
7Q 7I
,x8},!#
,x8}H!#
,x8}`!#
,x8},!#
,x8}H!#
,x8}`!#
$,`4}
[|%}l$
$G<$#8^
[<%K<$S$9
[<%G<%}4%
%G<%~8,
%G<%G
J@9~8,
^P9JP9
^p9G<%J`9
^@9Jp9G
J@9~8,
[\%GL%
9)T [<%#
KL$Q 7J
KL$Q 7G
KL$,D8
9G|%#
GL%}8&
[|%}@&
&G<$#8^
[<%K<$S$9
[\%GL%
GL%} '
[l%GL%
G|%}4%
G|%}4%
[|%G|%
GL%}\'
GL%}h'
GL%}x'
^l:J\:
[|%G|%}4%
Jl:J\:
KL$Q 7Gl%
KL$,D8
9G|%#
:-$3#
:-$3#
^l;4K
:K,#,
:,@;#
;+l"$
;+<#$
;,L<}
;,L<}
;,L<}
;,L<}
;,L<K
;,L<K
;,L<}
;,L<}
;,L<}
;,L<}
;,L<}
;,L<}
Jt=}\*
Kl>,D8
^|>K,#,
>K,#-H3#
>K,#-H3#
K|>,@;#
Kl>,x8}
Kl>,D8
,x8}$.#
K|>,@;#
Kh?,x?#
?Kh?-
?#Kh?-
^H?K,#-H3#
^X?KH?-$@#
KH?,H@}
KH?,H@}
@+<#$
@-<4#
@#-$3#
1[`1#
A[p1#
^lAJ\A
J\A}\*
^|AJlA
JlA}\*
^LAK<A,
<J|A#
KL$Q 7N
KL$,D8
^TCrTC
K,$,D8
D-$3#
D-$3#
C-@D#8L
C-dD#
E}07J
D-$3#
%K,$S
A}|7}
%K,$S
^ FK,
K0F,D8
^@FK,#,
^PFK,#-H3#
^`FK,#-H3#
K@F,@;#
K0F,x8}
K0F,D8
E}P8J
KpF-$3#
KpF-$3#
FKpF,
FK,$Pl5
GK,$P
K,$Ql5J
K,$,D8
K,$,D8
I4 ID
GK,#,
GK,#-H3#
GK,#-H3#
G,@;#
!,x8}$.#
G,@;#
]L"I\"
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$ScriptLib
$ScriptLib_O
$TITLE
$Flags
$PublicAccess
Script Developme
ed$UpdatedBy$ACLDigest$Signature$DesignVersion$Version$Formula$FormulaClass$Collation$TITLE$INFO$FlagsURLDoclink$FIELDS$BODY$Fonts$TemplateModTime$TemplateServerName$TemplateFileName$DefaultNavigator$FlagsNoRefreshIconBitmap$SCRIPTOBJ_12$SCRIPTOBJ_11$Index$Collation1$Collation2$Collation3$VIEWFORMAT$FormFormula$Comment$ACTIONS$SCRIPTOBJ_6$SCRIPTOBJ_7$SCRIPTOBJ_8$SCRIPTOBJ_9$SCRIPTOBJ_10$ViewGlobalScript$ViewGlobalScript_O$ViewScript$ViewScript_O$WINDOWTITLE$Script$$Script_O$$ScriptName$$FormScript$$$FormScript_O$$StartUpOptions$StartUpOptions_O$$OpenURL$OpenURL_O$$ScanAhead$ScanAhead_O$$PreferredSearchEngine$PreferredSearchEngine_O$$$Script1$$Script1_OStartUpOptionsOpenURLReduceNumDaysReduceNumMBWebDatabaseAnchor_styleBodyFixedPlainAddressListingSearchFrequencyUpdatesFoundOptionsSendMailToScanAheadPreferredSearchEngineSearchURLReduceDaysReduceSizeSaveHTMLWebServerKeepPage$Script1$Collation4$Totals$DBScript$DBScript_O$PublicAccessTitleURLContentCommentsSharedOptionstmpWebServertmpWebDbRatingbookmarkfileCounter$Hotspot0_OCreatedExpirationPrivacy_flagsOriginal_DateLast_Modified$$XMB_2$$XMB_3$SCRIPTOBJ_21$SCRIPTOBJ_20HTTPStatusTypeHostFileNameSaveOptionsSubject$SCRIPTOBJ_3$SCRIPTOBJ_5$SCRIPTOBJ_16$SCRIPTOBJ_17$SCRIPTOBJ_19$SCRIPTOBJ_18$Name$SCRIPTOBJ_0$SCRIPTOBJ_1$SCRIPTOBJ_2$SCRIPTOBJ_13$SCRIPTOBJ_14$SCRIPTOBJ_15$FolderObject$FolderIDTableForwardOptions$FILE$SCRIPTOBJ_26$OLEOBJINFO$OLEPreviewActivate$SCRIPTOBJ_4$SCRIPTOBJ_22$SCRIPTOBJ_23$SCRIPTOBJ_24$SCRIPTOBJ_25$$XMB$Licensee$AssistType$AssistLastRun$AssistDocCount$AssistFlags$AssistTrigger$AssistInfo$AssistQuery$AssistAction$AssistAction_Ex$AssistRunInfo$AssistVersionFORMbookmark$Revisions$ScriptLib$ScriptLib_O$Type$Operation$Scan$LeftToDo
'++LotusScript Development Environment:2:5:(Options):0:74
Use "AgentFunctions"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Function NeedToRun(Frequency As Variant) As Integer
Declare Sub MindURLs(Options As Variant)
Declare Function DocumentHasBeenRefreshed(CurrentUrl As Variant) As Integer
Declare Function AppendTitle(Title As String) As String
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim PageMinderFolder As notesview
Dim EmailAddress As Variant
Dim CurrentWebDocument As notesdocument
Dim PreviousWebdocument As notesdocument
Dim Memo As NotesDocument
Dim AgentDoc As notesdocument
Dim Frequency As Variant
Dim ResultOptions As Variant
Dim LastRun As Variant
Dim PageMinderAgent As NotesAgent
Dim NewWebDocument As notesdocument
Dim LoadURLLinks As Integer
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

     '*
     '*  The purpose of this agent is to monitor specific pages within the page minder folder and e-mail
     '*  either changed pages or a newsletter summary to the current user or whoever is listed
     '*  in the Internet Profile as the email address.
     '*  This agent makes extensive use of Agent Logging functions.  Please check your local copy of agentlog.nsf
     '*  for status and error messages.
     '*

     '*
     '*  Initialize Variables
     '*
     On Error Goto ProcessError

     InstantiateAgentObjects
     Set dataDoc = Session.SavedData
     Set WebDatabase = Session.CurrentDatabase
     Set PageMinderAgent = Session.CurrentAgent
     Set dt = New NotesDateTime ("1/1/90")

     LoadURLLinks = False

     '*
     '*  Open/Create the Agent Error Log on the client.
     '*

     Set AgentLog = OpenLog(PageMinderAgent.name)

     If LogLocation = "Agent Log" Then
          agentLog.LogErrors = True
     End If

     Call logaction( "Starting Page Minder agent.....")

     If (datadoc Is Nothing) Then
          Set datadoc = New Notesdocument (WebDatabase)
     End If
     '*
     '*  Make sure that the location settings are correct for local retrievals
     '*

     If WebLocationOK Then

     '*
     '*  Make sure that the database variable was initialized.
     '*

          If  (WebDatabase Is Nothing) Then

               Call logerror( 1, "Web Database could not be initialized. Exiting Program without checking URL's.")
               Goto Cleanup
          End If

     '*
     '*  Verify that the Page Minder Folder exists in the database.
     '*  If not, exit the program.
     '*

          Set PageMinderFolder = WebDatabase.getview("Web Bots\Page Minder")

          If (PageMinderFolder Is Nothing) Then
               Call logerror(2, "Could not find Page Minder Folder.  Please recheck database design and rerun.")
               Goto Cleanup
          End If

     '*
     '*  Now that the Page Minder Folder exists, check to see if there are any documents
     '*  in it.  If not, exit the program.
     '*
          Set CurrentWebDocument = PageMinderFolder.GetFirstDocument

          If (CurrentWebDocument Is Nothing) Then
               Call logaction( "No documents were found to mind in the Page Minder Folder." )
               Goto Cleanup
          End If

     '*
     '*  Now that we have verified that there are documents to be checked,
     '*  we need to retrieve the pertinent fields from the Internet Profile.
     '*


          If  ( View Is Nothing ) Then
               Call logerror(3, "Could not find Internet Profile view.  Recheck database design and rerun agent.")
               Goto Cleanup
          End If

     '*
     '*  Make sure that an Internet profile document exists in the database.
     '*  If not, exit the program.
     '*

          If (docProfile Is Nothing) Then
               Call logerror(4, "Internet Options document not found.  Select Actions - Internet Options and Save the document.")
               Goto Cleanup
          End If

     '*
     '*  Retrieve the frequency with which we should run the agent.
     '*  If this is blank, assume daily.
     '*

          Frequency = docProfile.SearchFrequency
          If Frequency(0) = "" Then
               Call logaction( "No frequency specified, assuming daily.")
               Call docProfile.Replaceitemvalue("SearchFrequency", "2")
               Call docProfile.Save(True,False)
               Frequency = docProfile.SearchFrequency
          End If

     '*
     '*  Retrieve the SendMailTo field to determine where we send
     '*  results to.  If this is blank, sub in the current username.
     '*
          EmailAddress = docProfile.SendMailto
          If EmailAddress(0) = "" Then
               Call logaction( "No address specified to send results to.  Assuming " + session.username)
               Call docProfile.Replaceitemvalue("SendMailto", Session.Username)
               Call docProfile.Save(True,False)
               EmailAddress = docProfile.SendMailto
          End If

     '*
     '*  Retrieve the value of the UpdatesFoundOptions field
     '*  to determine what it is that we should do with the results
     '*  of the Pages that have changed.  If it's blank, assume
     '*  newsletter summary.
     '*
          ResultOptions = docProfile.UpdatesFoundOptions
          If ResultOptions(0) = "" Then
               Call logaction( "No format for results specified. Assuming newsletter summary." )
               Call docProfile.Replaceitemvalue("UpdatesFoundOptions", "1")
               Call docProfile.Save(True,False)
               ResultOptions = docProfile.UpdatesFoundOptions
          End If

     '*
     '*  Now determine if we have to check the pages based on the last time this
     '*  agent is run.
     '*

          If PageMinderAgent.LastRun <> "" Then
               If (NeedToRun (Frequency)) Then
                    Call logaction( "Frequency indicates that we need to check the urls.")
                    MindURLs(ResultOptions(0))
               End If
          Else
               'This must be the first time we've run this so we don't need to check when it was last run.
               MindURLs(ResultOptions(0))
          End If

     End If
     Goto cleanup
ProcessError:
     Call logerror(Err, Error$)
     Call logaction("The preceeding error occurred in the Initialize routine of the Purge Agent.")
     Resume Next
Cleanup:  'Cleanup all the old memo forms created by the agent
     Set documents = db.search("form = ""Memo""", dt, 0)
     If documents.count<>0 Then
          For j = 1 To documents.count
               Set memo = documents.getnthdocument(j)
               memo.remove True
          Next
     End If
     Call logaction("Page Minder Agent finished."     )
     If LogLocation = "Agent Log" Then
          Call agentlog.close
     End If
End Sub
'++LotusScript Development Environment:2:1:NeedToRun:1:8
Function NeedToRun(Frequency As Variant) As Integer

     '*
     '*  This function determines if we need to run the agent
     '*  based on the frequency selection in the Internet Profile
     '*  The function returns a value of true or false depending on when the agent
     '*  was last run.
     '*

     On Error Goto ProcessError
     Dim CurrentTime As New  NotesDatetime ("Now")
     Dim LastRunDate As New NotesDateTime(datadoc.LastRunTime(0))
     Dim Starttime As New NotesDateTime("1/1/70")
     NeedToRun = False
     Call CurrentTime.Setnow
     If LastRunDate.lslocaltime < Starttime.lslocaltime Then
          NeedToRun = True
          Exit Function
     End If

     Select Case Frequency(0)

     Case  "0"

          If CurrentTime.timedifference(LastRunDate) > 3600  Or  Isempty(LastRunDate.LocalTime) Then
               Call logaction( "It's been more than an hour, time to mind the URL's")
               NeedToRun = True
          End If
     Case "1"
          If CurrentTime.timedifference(LastRunDate) >14400 Or  Isempty(LastRunDate.LocalTime)  Then
               Call logaction( "It's been more than 4 hours, time to mind the URL's")
               NeedToRun = True
          End If
     Case "2"
          If CurrentTime.timedifference(LastRunDate) >86400 Or  Isempty(LastRunDate.LocalTime)   Then
               Call logaction( "It's been more than a day, time to mind the URL's")
               NeedToRun = True
          End If
     Case  "3"
          If CurrentTime.timedifference(LastRunDate) > 604800 Or  Isempty(LastRunDate.LocalTime)  Then
               Call logaction( "It's been more than a week, time to mind the URL's")
               NeedToRun = True
          End If
     End Select
     Exit Function

ProcessError:
     Call logerror(Err, Error$)
     Call logaction("The preceeding error occurred in the NeedToRun routine of the Page Minder Agent.")
     Resume Next

End Function
'++LotusScript Development Environment:2:2:MindURLs:1:8
Sub MindURLs(Options As Variant)

     '*
     '*  This subroutine performs the test on each document in the page minder
     '*  folder to see if the document has changed.  If it has, it sends the requested form
     '*  of e-mail to the user specified in the Internet options.
     '*
     On Error Goto ProcessError

     Dim url As Variant
     Dim Memo As NotesDocument
     Dim Memo1 As NotesDocument
     Dim Body As NotesrichTextItem
     Dim Body1 As NotesrichTextItem
     Dim Body2 As NotesrichTextItem
     Dim background As notesitem
     Dim papercolor As notesitem
     Dim SendMail As Integer
     Dim FirstTime As Integer
     Dim Successful As Integer

     If Options = "1" Then
          Set Memo = New NotesDocument(WebDatabase)
          Set Body = New NotesRichTextItem(Memo, "Body")
          Set Body1 = New NotesRichTextItem(Memo, "Body1")
          Set Body2 = New NotesRichTextItem(Memo, "Body2")
          Call Memo.ReplaceItemValue( "Subject", "Results of Page Minder Agent for "+ WebDatabase.Filename )
          Call Memo.ReplaceItemValue( "Form", "Memo" )
          Call Memo.Save(True,False)
          SendMail = False
          FirstTime = True
          Successful = True
     Elseif Options = "0" Then
          Sendmail = False
          FirstTime = True
     End If

     While Not (CurrentWebDocument Is Nothing)
          If CurrentWebdocument.form(0) = "HelpForm"  Then Goto nextdocument
          If CurrentWebDocument.hasitem("url") Then
               url = CurrentWebDocument.url(0)

               If url = "" Then
                    Call logerror(7,  "URL field is empty.  Remove the page from the Page Minder Folder.")
                    Call CurrentWebDocument.ReplaceItemValue("PageMinderStatus", "2")
                    Call CurrentWebDocument.Save(True, False)
                    Goto NextDocument
               End If

               If (CurrentWebDocument.HTTPStatus(0) <> "200") Or (CurrentWebDocument.HTTPStatus(0) <> "304") Then
                    Goto Continue
               End If

               If CurrentWebDocument.HTTPLast_Modified(0) = "" Then
NoLastModified:
                    If Options = "1"  And FirstTime Then
                         Call Body1.AddNewLine(1)
                         Call Body1.AppendText("The following pages are on HTTP servers which do not support the Last-Modified command:")
                         Call Body1.AddNewLine(2)
                         Call Body1.AppendText(AppendTitle(CurrentWebDocument.Title(0)))
                         Call Body1.AddTab(2)
                         Call Body1.AppendText(CurrentWebdocument.url(0))
                         Call Body1.AddNewLine(1)
                         Call Memo.Save(True, False)
                         FirstTime = False
                         SendMail = True
                    Elseif Options = "1" Then
                         Call Body1.AppendText(AppendTitle(CurrentWebDocument.Title(0)))
                         Call Body1.AddTab(2)
                         Call Body1.AppendText(CurrentWebdocument.url(0))
                         Call Body1.AddNewLine(1)
                         Call Memo.Save(True, False)
                         SendMail = True
                    Elseif Options = "0" And FirstTime Then
                         Set Memo1 = New NotesDocument(WebDatabase)
                         Set Body1 = New NotesRichTextItem(Memo1, "Body")
                         Call Memo1.ReplaceItemValue( "Subject", "Results of Page Minder Agent for "+WebDatabase.Filename  )
                         Call Memo1.ReplaceItemValue( "Form", "Memo" )
                         Call Body1.AppendText("The following pages are on HTTP servers which do not support the Last-Modified command:")
                         Call Body1.AddNewLine(2)
                         Call Body1.AppendText(AppendTitle(CurrentWebDocument.Title(0)))
                         Call Body1.AddTab(2)
                         Call Body1.AppendText(CurrentWebdocument.url(0))
                         Call Body1.AddNewLine(1)
                         Call Memo1.Save(True, False)
                         FirstTime = False
                         SendMail = True
                    Elseif Options = "0" Then
                         Call Body1.AppendText(AppendTitle(CurrentWebDocument.Title(0)))
                         Call Body1.AddTab(2)
                         Call Body1.AppendText(CurrentWebdocument.url(0))
                         Call Body1.AddNewLine(1)
                         Call Memo1.Save(True, False)
                         SendMail = True
                    End If
                    Call CurrentWebDocument.ReplaceItemValue("PageMinderStatus", "1")
                    Call CurrentWebDocument.Save(True, False)
                    Goto NextDocument
               End If

Continue:
               Set NewWebDocument = RetrieveOverInternet(url,CurrentWebDocument,LoadURLLinks)
               If NewWebDocument.HTTPStatus(0) = "401" Then Goto AuthenticationFailed
               If NewWebDocument.HTTPLast_Modified(0) = "" Then  Goto NoLastModified
               If  DocumentHasBeenRefreshed(url) Then
                    If (NewWebDocument.HTTPStatus(0) = "200") Or (NewWebdocument.HTTPStatus(0) = "304")  Then
                         Call agentlog.logaction( "Successfully retrieved " +NewWebDocument.URL(0)+" page")
                         Call NewWebDocument.ReplaceItemValue("PageMinderStatus", "0")
                         Call NewWebdocument.Save(True,False)
                         Call NewWebdocument.PutInFolder("Web Bots\Page Minder")

                         If Options = "0" Then
                              Set Memo = New NotesDocument(WebDatabase)
                              Call Memo.ReplaceItemValue( "Subject", "Results of Page Minder Agent for " + NewWebDocument.url(0)+ " in the file "+WebDatabase.Filename)
                              Call Memo.Replaceitemvalue("Form", "Memo")
                              If NewWebdocument.hasitem("$Background") Then
                                   Set background = NewWebdocument.getfirstitem("$Background")
                                   Call memo.copyitem(background, "$Background")
                              End If
                              If NewWebdocument.hasitem("$PaperColor") Then
                                   Set papercolor = NewWebdocument.getfirstitem("$PaperColor")
                                   Call memo.copyitem(papercolor, "$PaperColor")
                              End If
                              Set Body = New NotesRichTextItem(Memo, "Body")
                              Call NewWebDocument.Rendertortitem(Body)
                              Call Memo.save(True,False)
                              Call Memo.send(False, EmailAddress(0))
                         Elseif Options ="1" And Successful Then
                              Call Body2.AddNewLine(1)
                              Call Body2.AppendText("The following pages have changed as of "+Cstr(Today)+":")
                              Call Body2.AddNewLine(2)
                              Call Body2.AppendText(AppendTitle(NewWebDocument.Title(0)))
                              Call Body2.AddTab(2)
                              Call Body2.AppendText(NewWebDocument.url(0))
                              Call Body2.AddNewLine(1)
                              Call Memo.Save(True, False)
                              Successful = False
                              SendMail = True
                         Elseif Options = "1" Then
                              Call Body2.AppendText(AppendTitle(NewWebDocument.Title(0)))
                              Call Body2.AddTab(2)
                              Call Body2.AppendText(NewWebDocument.url(0))
                              Call Body2.AddNewLine(1)
                              Call Memo.Save (True, False)
                              SendMail = True
                         End If
                    Elseif NewWebDocument.HTTPStatus(0) = "401" Then
AuthenticationFailed:
                         Call logerror(8,"Page Minder does not have required authentication information for "+NewWebDocument.url(0)+".  Page was not retrieved correctly.")
                         Call NewWebDocument.ReplaceItemValue("PageMinderStatus", "2")
                         Call NewWebDocument.Save(True, False)
                         Call NewWebdocument.removefromfolder("Web Bots\Page Minder")
                         If GetLocationItem("WebRetriever")(0) <> "3" Then
                              Dim AuthenticationMemo As New Notesdocument(WebDatabase)
                              Set Body = New NotesRichTextItem(AuthenticationMemo, "Body")
                              Call AuthenticationMemo.ReplaceItemValue( "Subject", "Page Minder Requires Authentication Information ")
                              Call AuthenticationMemo.ReplaceItemValue( "Form", "Memo" )
                              Call Body.AddNewLine(1)
                              Call Body.Appendtext("The following page requires authentication information.  Please retreive the page manually and move it to the Page Minder folder again.")
                              Call Body.AddNewLine(2)
                              Call Body.AppendDocLink(NewWebDocument, NewWebDocument.url(0))
                              Call Body.AddTab(2)
                              Call Body.AppendText(NewWebDocument.Title(0))
                              Call Body.AddNewLine(1)
                              Call AuthenticationMemo.Save (True, False)
                              Call AuthenticationMemo.send(False, EmailAddress(0))
                         Else
                              Call agentlog.Logaction("Page Minder does not support authenticated pages when using the Notes with Internet Explorer setting.")
                         End If
                    Else
                         Call logerror(9, "Page Minder received a bad status code of " + Cstr(NewWebDocument.HttpStatus(0)) +".  Page " + Cstr(NewWebDocument.url(0))+" was not retrieved correctly.")
                         Call NewWebDocument.ReplaceItemValue("PageMinderStatus", "2")
                         Call NewWebDocument.Save(True, False)
                    End If
               Else
                    Call CurrentWebDocument.ReplaceItemValue("PageMinderStatus", "3")
                    Call CurrentWebDocument.Save(True, False)
               End If
          Else
               Call logerror(7, "URL field is not present on the note.  Remove from Page Minder Folder.")
               Call CurrentWebDocument.ReplaceItemValue("PageMinderStatus", "2")
               Call CurrentWebDocument.Save(True, False)
          End If
NextDocument:

          Set CurrentWebDocument=PageMinderFolder.GetNextDocument(CurrentWebDocument)

     Wend

     If SendMail Then
     '*
     '* Now that we're done checking the pages, if the user
     '* requested a newsletter summary of the results, let's mail it.
     '*
          If Options = "1" Then
               Set Body = New NotesRichTextItem(Memo, "Body")
               If Body2.Type = RICHTEXT Then
                    Call Body.Appendrtitem(Body2)
               End If
               If Not (Body1 Is Nothing) Then
                    If Body1.Type = RICHTEXT Then
                         Call Body.Appendrtitem( Body1)
                    End If
               End If
               Call Memo.Save(True, False)
               Call Memo.Send(False, EmailAddress(0))
          Elseif Options = "0" And Not (Memo1 Is Nothing) Then
               If Body1.Type  =  RICHTEXT Then
                    Call Memo1.send(False,EmailAddress(0))
               End If
          End If
     End If
     Goto EndSub

ProcessError:
     Call logerror(Err, Error$)
     Call logaction("The preceeding error occurred in the MindURLs routine of the Page Minder agent.")
     Resume Next
EndSub:
     Call datadoc.Replaceitemvalue("LastRunTime", Now)
     Call datadoc.Save(True,False)
End Sub
'++LotusScript Development Environment:2:1:DocumentHasBeenRefreshed:1:8
Function DocumentHasBeenRefreshed(CurrentUrl As Variant) As Integer

     '*
     '*  The purpose of this function is to determine if the web page
     '*  that we are monitoring has changed.  If it has, the function
     '*  returns true.
     '*
     Dim LastRunDate As New NotesDateTime(datadoc.LastRunTime(0))
     DocumentHasBeenRefreshed = False

     '*
     '*  Get the date that the document was last refreshed and
     '*  save it for future comparisons.
     '*


     Dim DateLastModified As New NotesDateTime(NewWebDocument.HTTPLast_modified(0))
     If (DebugFlag = "1") Then
          Call logaction( "Date Last Modified (GMT): " + Cdat(DateLastModified.LSGMTTime))
     End If



     If Cdat(DateLastModified.LSGMTTime) > Cdat(LastRunDate.LSGMTTime) Or Isempty(LastRunDate.LocalTime) Then
          DocumentHasBeenRefreshed = True
     End If


End Function
'++LotusScript Development Environment:2:1:AppendTitle:1:8
Function AppendTitle(Title As String) As String
     Dim titlelength As Integer
     titlelength = Len(title)
     If titlelength<40 Then
          NewTitle = "                                        "
          Lset NewTitle = title
          AppendTitle = NewTitle
     Elseif titlelength >40 Then
          AppendTitle = Left$(title, 40)
     End If
End Function
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesAgentFunctionss34Q1################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub InstantiateAgentObjects
Declare Function OpenLog(AgentName As String) As NotesLog
Declare Function RetrieveOverInternet (CurrentURL As Variant, Doc As Notesdocument,  LoadURLLinks) As Notesdocument
Declare Function WebLocationOK As Integer
Declare Function GetLocalNAB() As NotesDatabase
Declare Sub Terminate
Declare Sub RemoveObjects(doc As notesdocument)
Declare Sub LogAction (Action As String)
Declare Sub LogError (ErrorCode As Long, ErrorText As String)
Declare Function GetLocationItem (itemname As String) As Variant
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim Session As notessession
Dim  DebugFlag As String
Dim agentlog As noteslog
Dim CurrentAgent As NotesAgent
Dim WebDatabase As NotesDatabase
Dim datadoc As notesdocument
Dim db As notesdatabase
Dim view As notesview
Dim docprofile As notesdocument
Dim loglocation As String
Dim dt As notesdatetime
'++LotusScript Development Environment:2:2:InstantiateAgentObjects:1:8
Sub InstantiateAgentObjects
     Set session = New NotesSession
     Set db = session.CurrentDatabase
     Set view = db.GetView("(Internet Profile)")
     Set docProfile = view.GetFirstDocument
End Sub
'++LotusScript Development Environment:2:1:OpenLog:1:8
Function OpenLog(AgentName As String) As NotesLog

     '*
     '*  The purpose of this subroutine is to find and/or create the Notes Agent Log
     '*  for the local client using the StdR4AgentLog template.
     '*

     Dim directory As notesdbdirectory
     Dim db As notesdatabase
     Dim done As Variant

     On Error Goto errorroutine

     Set directory = New notesdbdirectory("")
     Set db = directory.getfirstdatabase(DATABASE)
     done = False

     While Not (db Is Nothing) And Not done
          Call db.open("", "")
          If (db.designtemplatename = "StdR4AgentLog") Then
               done = True
          Elseif db.filename = "agentlog.nsf" Then
               done = True
          Else
               Set db = directory.getnextdatabase
          End If
     Wend

     If done Then
          Set AgentLog = New noteslog ("Log for " & AgentName)
          Call AgentLog.opennoteslog (db.server, db.filepath)
          LogLocation = "Agent Log"
     Else
          Dim alogdb As New notesdatabase("", "ALOG4.NTF")
          Dim logdb As notesdatabase
          If alogdb.isopen Then
               Set logdb = alogdb.createfromtemplate("", "agentlog", True)
               Set agentlog = New noteslog ("Log for " & AgentName)
               Call agentlog.opennoteslog ("", "agentlog.nsf")
               LogLocation = "Agent Log"
          Else
              'Agent log template not found, using print statements to log to the Notes log
               loglocation = "Notes Log"
               Exit Function
          End If
     End If
     Set  OpenLog = Agentlog
     Exit Function

ErrorRoutine:
     Messagebox Error & " (OpenLog)"
     Exit Function
End Function
'++LotusScript Development Environment:2:1:RetrieveOverInternet:1:8
Function RetrieveOverInternet (CurrentURL As Variant, Doc As Notesdocument,  LoadURLLinks) As Notesdocument

     '*
     '*  The purpose of this subroutine is to retrieve a web page over the net.
     '*  Various checks in here are present to determine if the user
     '*  is trying to access an authenticated page or access via a proxy.
     '*

     Dim authinfo As Variant
     Dim username As String
     Dim password As String
     Dim proxyinfo As Variant
     Dim proxyusername As String
     Dim proxypassword As String
     Dim Currentdomain As String

     If Doc Is Nothing Then

         '*
         '*  If no document was passed in then we are just dealing with a url.
          '*  Just in case the url may be from an authenticated site, we need
          '* to check the data note for the authentication information
          '*

          CurrentDomain = (Left(Currenturl, (Instr(8, Currenturl, "/", 1))))
          If datadoc.hasitem(currentdomain+"auth") And datadoc.hasitem(currentdomain+"proxy") Then
               authinfo =datadoc.getitemvalue(currentdomain+"auth")
               username = Left(authinfo(0),  (Instr(authinfo(0), ":")-1))
               password = Right(authinfo(0), (Len(authinfo(0))-Instr(authinfo(0), ":")))
               proxyinfo = datadoc.getitemvalue(currentdomain+"proxy")
               proxyusername = Left(proxyinfo(0), (Instr(proxyinfo(0), ":")-1))
               proxypassword = Right(proxyinfo(0), Len(proxyinfo(0))-(Instr(proxyinfo(0), ":")))
               If LoadURLLinks Then
                    Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,1,"",username,password,proxyusername,proxypassword)
               Else
                    Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,0,"",username,password,proxyusername,proxypassword)
               End If
               Exit Function
          Elseif datadoc.hasitem(currentdomain+"auth") And Not datadoc.hasitem(currentdomain+"proxy") Then
               authinfo = datadoc.getitemvalue(currentdomain+"auth")
               username = Left(authinfo(0),  (Instr(authinfo(0), ":")-1))
               password = Right(authinfo(0), (Len(authinfo(0))-Instr(authinfo(0), ":")))
               If LoadURLLinks Then
                    Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,1,"",username,password)
               Else
                    Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,0,"",username,password)
               End If
               Exit Function
          Elseif datadoc.hasitem(currentdomain+"proxy") And Not datadoc.hasitem(currentdomain+"auth") Then
               proxyinfo = datadoc.getitemvalue(currentdomain+"proxy")
               proxyusername = Left(proxyinfo(0), (Instr(proxyinfo(0), ":")-1))
               proxypassword = Right(proxyinfo(0), (Len(proxyinfo(0))-Instr(proxyinfo(0), ":")))
               If LoadURLLinks Then
                    Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,1,"", "", "", proxyusername, proxypassword)
               Else
                    Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,0,"", "", "", proxyusername, proxypassword)
               End If
               Exit Function
          Else
               If LoadURLLinks Then
                    Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,1)
               Else
                    Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,0)
               End If
               Exit Function
          End If

          '*
          '*  If a document did get passed in as an argument, check to see if authentication information exists on it
          '*  If the information does exist, store it on the data note for the agent.
          '*
     Else
          If Doc.hasitem("$User_Authentication") And Doc.hasitem("$Proxy_Authentication") Then
               authinfo = Doc.getitemvalue("$User_Authentication")
               username = Left(authinfo(0),  (Instr(authinfo(0), ":")-1))
               password = Right(authinfo(0), (Len(authinfo(0))-Instr(authinfo(0), ":")))
               proxyinfo = Doc.getitemvalue("$Proxy_Authentication")
               proxyusername = Left(proxyinfo(0), (Instr(proxyinfo(0), ":")-1))
               proxypassword = Right(proxyinfo(0), (Len(proxyinfo(0)) -Instr(proxyinfo(0), ":")))
               CurrentDomain = (Left(Currenturl, (Instr(8, currenturl, "/", 1))))
               If datadoc.hasitem(currentdomain+"auth") And datadoc.hasitem(currentdomain+"proxy") Then
                    If LoadURLLinks Then
                         Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,1,"",username,password,proxyusername,proxypassword)
                    Else
                         Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,0,"",username,password,proxyusername,proxypassword)
                    End If
                    Exit Function
               Else
                    Call datadoc.replaceitemvalue(currentdomain+"auth", authinfo)
                    Call datadoc.replaceitemvalue(currentdomain+"proxy",proxyinfo)
                    Call datadoc.save(True, False)
                    Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,1,"",username,password,proxyusername,proxypassword)
               End If
          Elseif Doc.hasitem("$User_Authentication") And Not Doc.hasitem("$Proxy_Authentication") Then
               authinfo = Doc.getitemvalue("$User_Authentication")
               username = Left(authinfo(0),  (Instr(authinfo(0), ":")-1))
               password = Right(authinfo(0), (Len(authinfo(0))-Instr(authinfo(0), ":")))
               CurrentDomain = (Left(currenturl, (Instr(8, currenturl, "/", 1))))
               If datadoc.hasitem(currentdomain+"auth") Then
                    If LoadURLLinks Then
                         Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,1,"",username,password)
                    Else
                         Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,0,"",username,password)
                    End If
                    Exit Function
               Else
                    Call datadoc.replaceitemvalue(currentdomain+"auth", authinfo)
                    Call datadoc.save(True,False)
                    Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,1,"",username,password)
               End If

          Elseif Doc.hasitem("$Proxy_Authentication") And Not Doc.hasitem("$User_Authentication") Then
               proxyinfo = Doc.getitemvalue("$Proxy_Authentication")
               proxyusername = Left(proxyinfo(0), (Instr(proxyinfo(0), ":")-1))
               proxypassword = Right(proxyinfo(0), (Len(proxyinfo(0)) - Instr(proxyinfo(0), ":")))
               CurrentDomain = (Left(Currenturl, (Instr(8, currenturl, "/", 1))))
               If datadoc.hasitem(currentdomain+"proxy") Then
                    If LoadURLLinks Then
                         Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,1,"", "", "", proxyusername, proxypassword)
                    Else
                         Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,0,"", "", "", proxyusername, proxypassword)
                    End If
                    Exit Function
               Else
                    Call datadoc.replaceitemvalue(currentdomain+"proxy", proxyinfo)
                    Call datadoc.save(True,False)
                    Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,1,"", "", "", proxyusername, proxypassword)
               End If
               Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,1,"", "", "", proxyusername, proxypassword)
          Else
               If LoadURLLinks Then
                    Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,1)
               Else
                    Set RetrieveOverInternet = WebDatabase.GetDocumentByURL(currentURL, 2,0)
               End If
          End If
     End If
End Function
'++LotusScript Development Environment:2:1:WebLocationOK:1:8
Function WebLocationOK As Integer

     '*
     '*  This function verifies that the current location settings are correct for local web retrievals.
     '*

     WebLocationOK = True
     Dim PrivateAddressBook As notesdatabase
     Dim CurrentLocation As notesdocument
     Dim LocationString As String


     Set PrivateAddressBook = GetLocalNAB

     If (PrivateAddressBook Is Nothing) Then
          Call agentlog.logaction( "Cannot verify current location settings.  Unable to open private address book.  Proceeding with  agent")
          Exit Function
     End If

     LocationString = Session.GetEnvironmentString ( "Location", True)

     If LocationString <> "" Then
          Temp$ = Mid( LocationString, (Instr(1, LocationString, ",")+1))
          LocationID$ = Left(Temp$, (Instr(1,Temp$, ",")-1))
          Set CurrentLocation = PrivateAddressBook.getdocumentbyid(LocationID$)
          If Not (CurrentLocation Is Nothing) Then
               If CurrentLocation.WebLogLevel(0) <> "0" Then
                    DebugFlag = "1"
               End If
               If CurrentLocation.WebRetriever(0) = "0" Or CurrentLocation.WebRetriever(0) = "3" Then
                    Goto CheckLocation
               Else
                    Call agentlog.logerror(5, "Your current location indicates that Notes is not specified as your Web Retriever.")
                    WebLocationOK = False
                    Exit Function
               End If
CheckLocation:
               If CurrentLocation.WebLocation(0) <> "1" Then
                    Call agentlog.logerror(6, "Your current location indicates that you are not setup for Local Web retrievals.")
                    WebLocationOK = False
                    Exit Function
               End If
          Else
               Call agentlog.logaction( "Warning:  Unable to verify current location settings.  Can't find location document.")
               Exit Function
          End If
     Else
          Call agentlog.logaction( "Warning:  Unable to verify current location settings.  Location string is empty." )
          Exit Function
     End If
End Function
'++LotusScript Development Environment:2:1:GetLocalNAB:1:8
Function GetLocalNAB() As NotesDatabase
     Dim sAddressBook As String
     Dim nCommaLocation As Integer

     On Error Resume Next
     sAddressBook = session.GetEnvironmentString("NAMES", True)
     nCommaLocation = Instr(sAddressBook, ",")
     If nCommaLocation > 0 Then sAddressBook = Left(sAddressBook, nCommaLocation-1)

     Set GetLocalNAB = New NotesDatabase("",sAddressBook)
End Function
'++LotusScript Development Environment:2:2:Terminate:1:10
Sub Terminate

End Sub
'++LotusScript Development Environment:2:2:RemoveObjects:1:8
Sub RemoveObjects(doc As notesdocument)
     Dim imagepage As notesdocument
     If doc.hasitem("$ImageList") Then
          Dim images As Variant
          images  = doc.getitemvalue("$ImageList")
          Forall j In images
               If j <> "" Then
                    Set imagepage = db.getdocumentbyurl(j)
                    imagepage.remove True
               End If
          End Forall
     End If
End Sub
'++LotusScript Development Environment:2:2:LogAction:1:8
Sub LogAction (Action As String)
     If LogLocation = "Agent Log" Then
          Call agentlog.logaction(Action)
     Elseif LogLocation = "Notes Log" Then
          Print Action
     End If
End Sub
'++LotusScript Development Environment:2:2:LogError:1:8
Sub LogError (ErrorCode As Long, ErrorText As String)
     If LogLocation = "Agent Log" Then
          Call agentlog.logerror(ErrorCode, ErrorText)
     Else
          Print Error & ErrorText
     End If
End Sub
'++LotusScript Development Environment:2:1:GetLocationItem:1:8
Function GetLocationItem (itemname As String) As Variant

     '*
     '*  This function returns a data item from the current location note
     '*

     InstantiateAgentObjects
     GetLocationItem = ""
     Dim PrivateAddressBook As notesdatabase
     Dim CurrentLocation As notesdocument
     Dim LocationString As String


     Set PrivateAddressBook = GetLocalNAB

     If (PrivateAddressBook Is Nothing) Then
          Print "Warning:  Cannot open private address book."
          Exit Function
     End If

     LocationString = Session.GetEnvironmentString ( "Location", True)

     If LocationString <> "" Then
          Temp$ = Mid( LocationString, (Instr(1, LocationString, ",")+1))
          LocationID$ = Left(Temp$, (Instr(1,Temp$, ",")-1))
          Set CurrentLocation = PrivateAddressBook.getdocumentbyid(LocationID$)
          If Not (CurrentLocation Is Nothing) Then
               GetLocationItem = CurrentLocation.getitemvalue(itemname)
          Else
               Call agentlog.logaction("Warning:  Unable to verify current location settings.  Can't find location document.")
               Exit Function
          End If
     Else
          Call agentlog.logaction( "Warning:  Unable to verify current location settings.  Location string is empty." )
          Exit Function
     End If
End Function
    +(    $
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$ScriptLib
$ScriptLib_O
$TITLE
$Flags
$PublicAccess
05/21/97 12:51:15 PM Teresa Deane/Iris updated [OtherDomainServers]
05/21/97 12:51:07 PM Teresa Deane/Iris added [OtherDomainServers]
05/21/97 12:50:59 PM Teresa Deane/Iris updated OtherDomainServers
05/21/97 12:50:56 PM Teresa Deane/Iris updated LocalDomainServers
05/21/97 12:50:52 PM Teresa Deane/Iris updated [LocalDomainServers]
05/21/97 12:50:45 PM Teresa Deane/Iris added [LocalDomainServers]
05/21/97 12:50:36 PM Teresa Deane/Iris deleted Teresa Deane/Iris
05/21/97 12:50:33 PM Teresa Deane/Iris deleted Teresa Deane/Deane
05/20/97 02:17:48 PM Teresa Deane/Iris added Teresa Deane/Deane
05/20/97 02:17:46 PM Teresa Deane/Iris updated Teresa Deane/Iris
05/20/97 02:17:46 PM Teresa Deane/Iris added Teresa Deane/Iris
05/20/97 02:17:46 PM Teresa Deane/Iris added LocalDomainServers
05/20/97 02:17:46 PM Teresa Deane/Iris added OtherDomainServers
-Default-
OtherDomainServers
LocalDomainServers
[LocalDomainServers]
[OtherDomainServers]